Дан массив из 16 целых чисел, случайно заданных в диапазоне от 0 до 70.получить max(a1*a16,a2*a15,...,a8*a9)
program pr;
uses crt;
var a:array[1..16] of integer;
i, max:integer;
begin
randomize;
for i:=1 to 16 do
a[i]:=random(70)+1;
max:=a[1]*a[16];
for i:=1 to 8 do
if a[i]*a[17-i]>=max then max:= a[i]*a[17-i];
writeln('max=',max);
readln
end.
Буду благодарна, если отметите