Найти максимальный элемент массива и его индекс. A[i]:=-50+random(101)

Question

Найти максимальный элемент массива и его индекс. A[i]:=-50+random(101)

Answer 1

program maximum;

const

n=5;

var

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

i, max, maxi: integer;

begin

randomize;

max:=0;

writeln('Мвссив');

for i:=1 to n do  

begin

 a[i]:=random(101)-50;

 write(a[i],' ');

end;

writeln;

for i:=1 to n do  

if a[i]> max then

begin

max:=a[i];

maxi:=i;

end;

writeln('Наибольший элемент массива: ',max);  

writeln('Наибольший индекс элемента массива: ',maxi);  

end.