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.