От верёвки длиной 15,24 м отрезали 4,9 м. На сколько метров оставшаяся часть верёвки больше отрезанной?

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,и поиск наибольшего элемента этого массива.