Дан массив из 16 целых чисел, случайно заданных в диапазоне от 0 до 70. Получить max (a1*a16*, a2*a15, ..., a8*a9*).

Program Pr1;

uses crt;

var mas:array[1 ... 16] of integer;

max:array[1 ... 8] of integer;

i, b, c:integer;

Begin

clrscr;

randomize;

b:=0;

for i:=1 to 16 do mas[i]:=random (71);

for i:=1 to 16 do write (mas[i]);

for i:=1 to 16 div 2 do begin

max[i]:=mas[i]*mas[16-b];

b:=b+1;

end;

writeln ();

for i:=1 to 8 do write (max[i]);

end.