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.
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.