Умножить на два максимальный элемент среди элементов на побочной диагонали матрицы - Turbo Pascal - Ответ 5273104

var A:array[1..10000,1..10000] of integer;
i,j,k,s,n,m,s1,Imax,Kmax,Imin,Kmin: integer;max,min:integer;
begin
write('n=');readln(n);
cls;s:=0;s1:=0;randomize;
for i:=1 to n do
for k:=1 to n do
begin
a[i,k]:=random(7)+2;
end;    
 for i:=1 to n do
begin
for k:=1 to n do
write(A[i,k]:5);
writeLn;
end;
writeln;
if i+k=n then 
     begin
     for i:=1 to n do
     for k:=1 to n do
begin
if a[i,k]>max then begin max:=a[i,k];Imax:=i;Kmax:=k; end;
if a[i,k]<min then begin min:=a[i,k];Imin:=i;Kmin:=k; end;
end;
end;
  for i:=1 to n do
for k:=1 to n do
begin
if i=k then s:=s+a[i,k];
if i>k then s1:=s1+a[i,k];
end;
if s>s1 then a[Imax,Kmax]:=2*a[Imax,Kmax]  else a[Imin,Kmin]:=a[Imin,Kmin]*a[Imin,Kmin];
begin
 for i:=1 to n do
begin
for k:=1 to n do
write(A[i,k]:5);
writeLn;
end;
end;
end.