Question

Вывести на экран номера минимального и максимального элементов массива
ПОМОГИТЕ СРОЧНО!

Answer 1

program mass;

const n=30;

var

i:integer;

maxi,mini:integer;

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

begin

maxi:=1;

mini:=1;

for i:=1 to n do

begin

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

write(a[i],' ');

if (a[i]<a[mini]) then mini:=i;

if (a[i]>a[maxi]) then maxi:=i;

end;

writeln;

writeln('Номер минимального элемента=',mini);

writeln('Номер максимального элемента=',maxi,);

readln;

end.