Program ASD;
{Зачетный вариант контрольной по ВТ и ИТ. Автор: Аверьянов Илья, ПС1-12}
{http://studentps.narod.ru}
const n=10;
var a:array[1..n,1..n] of integer;
     i,j,s,k,n,a,a1,min,max:integer;
begin
Randomize;
For i:=1 to n do
 begin
 writeln;
 for j:=1 to n do
 begin
  a[i,j]:=Random (101); write (a[i,j]);
 end;
 end;
min:=101;
For i:=1 to n-1 {исправлено, было написано "n" - прим. админа} do
 begin
 For j:=1 to (n-i) do begin
 If a[i,j]<min then
  begin
   min:=a[i,j]; a1:=j;
  end;
 end;
end;
s:=0;
max:=0;
For i:=1 to n do
 If a[i, (n-i+1)]>max then
 begin
  max:=a[i,(n-i+1)];
  a2:=n-i+1;
 end;

If a1>a2 then begin k:=a2; a2:=a1; a1:=k; end;

For i:=a1 to a2 do
 s:=s+a[1,i];

For i:=1 to n do begin
 k:=a[i,a1]; a[i,a1]:=a[i,a2];
  a[i,a2]:=k;
    end;

For i:=1 to n do
 begin
 writeln;
 For j:=1 to n do
  begin
  write(a[i,j]);
  end;
 end;

End.