uses crt;
var a:array[1..100,1..100] of integer;
i,j,n,k,l,m,b,t:integer;
begin
randomize;
clrscr;
writeln('vvedite n');
readln(n);
writeln('vedite m');
readln(m);
for i:=1 to n do
for j:=1to m do
a[i,j]:=random(100)-50;
for i:=1 to n do
begin
for j:=1 to m do
write (' ',a[i,j]:3);
writeln;
end;
for i:=1 to m do
begin
for b:=1 to n-1 do
for j:=1 to m do
if a[j,b]>a[j,b+1] then
begin
t:=a[j,b];
a[j,b]:=a[j,b+1];
a[j,b+1]:=t;
end;
end;
writeln;
writeln;
for i:=1 to n do
begin
for j:=1 to m do
write (' ',a[i,j]:3);
writeln;
end;
readln;
end.
М | теги.... мисс_граффити |