Var a:array[1..8, 1..8] of integer; max, i, j:integer; begin randomize; max:=0; for i:=1 to 8 do for j:=1 to 8 do a[i,j]:=random(200); for i:=1 to 8 do for j:=1 to 8 do if i+j=9 then begin if a[i, j]>max then max:=a[i, j]; end; for i:=1 to 8 do begin for j:=1 to 8 do write(a[i, j]:5); writeln; end; writeln('Максимальный элемент=', max); end.
max, i, j:integer;
begin
randomize;
max:=0;
for i:=1 to 8 do
for j:=1 to 8 do
a[i,j]:=random(200);
for i:=1 to 8 do
for j:=1 to 8 do
if i+j=9 then
begin
if a[i, j]>max then max:=a[i, j];
end;
for i:=1 to 8 do
begin
for j:=1 to 8 do
write(a[i, j]:5);
writeln;
end;
writeln('Максимальный элемент=', max);
end.