ANTICHAT — форум по информационной безопасности, OSINT и технологиям

program db2;
uses crt;
var a,b,i,k,max1,max2:integer;
mas:array[1..100,1..100] of integer;
begin
clrscr;
assign(input,'input2.txt');
reset(input);
assign(output,'output2.txt');
rewrite(output);
readln(i);
readln(k);
for a:=1 to i do
for b:=1 to k do
read(mas[a,b]);
max1:=mas[1,1];
max2:=mas[i,1];
for a:=1 to i do begin
if mas[a,a]>max1 then max1:=mas[a,a];
if mas[a,k-a+1]>max2 then max2:=mas[a,k-a+1];
end;
if max1<max2 then max1:=max2;
mas[(i div 2)+1,(i div 2)+1]:=max1;
for a:=1 to i do begin
writeln;
for b:=1 to k do
writeln(mas[a,b],' ');
end;
end.