imax:=1

for i:=2 to 10 do

if a [i]>a [imax] then imax:=i;

write ('Наибольший элемнт a[', imax, ' ]=', a[imax])

самостоятельно запишите программу, в которой осуществляется формирование целочисленного массива a из 10 элементов значения которых лежат в диапозоне от 0 до 99, и поиск наибольшего элемента этого массива.

Как я поняла, нужно было использовать кусок кода, данный выше?

var

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

imax, i: byte;

begin

Writeln ('Массив:') ;

Randomize;

for i:=1 to 10 do

begin

a[i]:=Random (100) ;

write (a[i]:4) ;

end;

imax : = 1;

for i:=2 to 10 do

if a[i] > a[imax] then imax : = i;

writeln;

writeln ('Максимальный элемент = ', a[imax]:3, ' в позиции ', imax:2) ;

end.