В массиве хранится информация о цены продуктов. Составьте программу, которая определяет

масивв то какой? числа рандомные можно?

Program pr1;uses crt;var a:array[1..20] of integer; i,j,max,ind :integer;begin  max:=a[ 1 ];  for i:=1 to 20 do   begin    writeln('Введите стоимость(макс 20 продуктов)');    readln(a[i])   end;  for i :=2 to 10 do    begin     if a [ i ] gt; max      then      begin      max:=a [ i ]      ind:=i;      end  end;  writeln('максимальная стоимость тавара ',a[i],'р. И ег оиндекс в массиве=',ind)end.