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

Motes

Program Pr1;uses crt;var mas:array[1..16] of integer; max:array[1..8] of integer; i,b,c:integer;Beginclrscr;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.