Question

Заполните массив из 10 элементов случайными числами в интервале [-10..10] и найти в нём максимальный и минимальный элементы и их номера исходный массив : 4 -5 3 10 -4 -6 8 - 10 1 0 максимальный а[4]=10 минимальный a[8]= 10

Answer 1

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(10,-10,10); a.Println;
  var imax:=a.IndexMax;
  var imin:=a.IndexMin;
  Writeln('максимальный а[',imax+1,']=',a[imax],
      ', минимальный a[',imin+1,']=',a[imin])
end.

Пример
-9 7 -2 5 -10 -6 -9 -6 3 1
максимальный а[2]=7, минимальный a[5]=-10

Answer 2

Var
a:array[1..10] of integer;
i,max,min:integer;
begin
max:=-11;
min:=11;
for i:=1 to 10 do a[i]:=-10+random(20);
for i:=1 to 10 do write(a[i],' ');
writeln;
for i:=1 to 10 do
if a[i]>max then max:=a[i];
for i:=1 to 10 do
if a[i]<min then min:=a[i];
writeln('max: ', max);
writeln('min: ', min);
end.