Sayuvachp
6 год назад
Сформировать массив из 10 элементов случайным образом взятых из множества {-2, 0, 2, 4, 6}. Найти максимальный и минимальный элементы массива, вывести элементы и их порядковые номера на экран
Напишите как записать плиииз
ОТВЕТЫ
Foma
Jul 24, 2019
// PascalABC.NET 3.2, сборка 1344 от 22.11.2016
// Внимание! Если программа не работает, обновите её версию!
begin
var cs:=Arr(-2,0,2,4,6);
var a:=new integer[10];
Randomize;
for var i:=0 to 9 do a[i]:=cs[Random(0,4)];
a.Println;
Writeln(a[,a.IndexMin+1,]min=,a.Min);
Writeln(a[,a.IndexMax+1,]max=,a.Max);
end.
Пример
0 0 -2 -2 -2 2 -2 6 2 4
a[3]min=-2
a[8]max=6
// Внимание! Если программа не работает, обновите её версию!
begin
var cs:=Arr(-2,0,2,4,6);
var a:=new integer[10];
Randomize;
for var i:=0 to 9 do a[i]:=cs[Random(0,4)];
a.Println;
Writeln(a[,a.IndexMin+1,]min=,a.Min);
Writeln(a[,a.IndexMax+1,]max=,a.Max);
end.
Пример
0 0 -2 -2 -2 2 -2 6 2 4
a[3]min=-2
a[8]max=6
64
Смежные вопросы:
