ЗАДАЧА ПО ИНФОРМАТИКЕ

[Admin]

uses crt;
var a:array [1..100,1..100] of integer;
b:array [1..100] of integer;
max,d,n,i,f,j,k,c:integer;
begin
clrscr;
readln(n);
randomize;
for i:=1 to n do
begin
for j:= 1 to n do
begin
a[i,j]:=trunc(random(9)-5);
write (a[i,j],' ');
end;
writeln;
end;
writeln;

k:=1;
for i:=1 to n do
for j:=1 to n do
begin
b[k]:=a[i,j];

write(b[k],' ');
k:=k+1
end;
writeln;
for f:=1 to k-1 do
begin
max:=b[f];
for i:=f to k do
if b[i]>=max then
begin
max:= b[i];
d:=i;
end;
c:=b[f];
b[f]:=b[d];
b[d]:=c;
write(b[f],' ');
end;

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

k:=1;
for i:=n downto 1 do
if i mod 2<>0 then
for j:=n downto 1 do
begin
a[i,j]:=b[k];
inc(k)
end
else
for j:=1 to n do
begin
a[i,j]:=b[k];
inc(k)
end;

for i:=1 to n do
begin
for j:=1 to n do
write (a[i,j],' ');
writeln;
end;
end;
readln;
end.