Question

Сформировать массив из 10 элементов случайным образом взятых из множества {-2, 0, 2, 4, 6}. Найти максимальный и минимальный элементы массива, вывести элементы и их порядковые номера на экран Напишите как записать плиииз

Answer 1

// 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