диоганаль - Pascal - Ответ 373750

program Гор;
uses crt;
var
a:array [1..10,1..10] of integer;
c:array [1..10,1..10] of integer;
 n,z,h,v,q,u,t,b,i,j,x,y,max,min,m: integer;
begin
clrscr;
       writeln ('Yclovie');
     write ('Vvodim m='); readln (m);
     write ('Vvodim n='); readln (n);
x:=1;y:=10;
     for i:=1 to m do begin
     for j:=1 to n do begin
     gotoxy(x,y); x:=x+3;readln (a[i,j]);
     c[i,j]:=a[i,j];x:=x+3;end;
     x:=1;
     y:=y+1;end;
     for i:=1 to m do begin
     for j:=1 to n do begin
     if  (i<j) then max:=a[i,j];
     if  (i>j) then min:=a[i,j];
end;end;
     for i:=1 to m do begin
     for j:=1 to n do begin
     if  (i<j) and (a[i,j]>max) then max:=a[i,j];
     if  (i>j) and (a[i,j]<min) then min:=a[i,j];
end;end;
for i:=1 to m do begin
for j:=1 to n do begin
if (max=(a[i,j])) and (i<j)then begin z:=i;h:=j;end;
if (min=(a[i,j])) and (i>j)then begin v:=i;b:=j;end;
end;end;
     writeln ('max= ',max,'(',z,',',h,')');
     writeln ('min= ',min,'(',v,',',b,')'); begin
     x:=1;y:=y+3;
     for i:=1 to m do begin
     for j:=1 to n do begin
     c[i,j]:=a[i,j];
     c[z,h]:=a[v,b];
     c[v,b]:=a[z,h];
     gotoxy(x,y);x:=x+6;writeln (c[i,j]);end;
     x:=1;
     y:=y+1;
end;end;
     readkey;
end.