Question

Задан массив А(16), который содержит случайные целые числа в интервале [-33;17]. Найти мах элемент и его место в массиве.

Answer 1

const

 n=16;

var

a:array [1..n] of integer;

max,i,maxi:integer;

begin

max:=-34;

for i:=1 to n do

 begin

   a[i]:=random(51)-33;

   write(a[i]:4);

   if a[i]>max then

     begin

       max:=a[i];

       maxi:=i;

     end;

 end;

writeln;

writeln('Max:', max, '  MaxI:',maxi);

end.