Определить значение наибольшего элемента массива заполненного 300 случайными положительными 3 значным числам и определить порядковый номер этого элемента

примени эту программу себе, тут и мах и мин program zadanie4; uses crt; var i:integer; max,min,maxi,mini:integer; a:array[1..10] of integer; begin clrscr; randomize; for i:=1 to 10 do a:=random(51); writeln('ischodni file'); writeln('-----------------'); for i:=1 to 10 do write(a:5); writeln; writeln; maxi:=1; max:=a[1]; for i:=2 to 10 do begin if a>max then begin max:=a; maxi:=i; end; end; mini:=1; min:=a[1]; for i:=2 to 10 do if a<min>; end; write('maximalnoe = '); writeln(max); write('minimalnoe = '); writeln(min); write('maximalnoe i = '); writeln(maxi); write('minimalnoe i = '); writeln(mini); writeln('konec zadachi'); readln; end.

const

  n = 300;

var

  i, max:integer;

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

begin

  randomize;

  writeln('Исходные числа');

  max := 1;

  for i := 1 to n do

  begin

    a[i] := random(900) + 100;

    write(a[i], ' ');

    if i mod 30 = 0 then

      writeln;

    if a[max] < a[i] then

      max := i;

  end;

  writeln('Наибольшим являемся элемент ', max, ' значение которого ', a[max]);

end.