Дан массив из 16 целых чисел, случайно заданных в диапазоне от 0 до 70. Получить...

Question

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

Answer 1

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.