oClasaAnonima
Megaelev
Data inscrierii: 11/Apr/2008
Mesaje: 29
|
 Trimis: 13.04.2008 14:34 Titlul subiectului: Problema 29 |
|
|
| Cod: |
{29. se citesc de la tastatura doua numere naturale n si m(1<=n<=10, 1<=m<=10)
si o matrice a cu n linii si m coloane. realizati ordonarea elementelor matricei,
astfel incat astea sa fie in ordine crescatoare atat pe fiecare linie, cat si
pe fiecare coloana. afisati matricea dupa prelucrare}
program ex29;
var a:array[1..10,1..10] of integer;
b:array[1..100] of integer;
n,m,i,j,k,aux:integer;
begin
readln(n,m);
for i:=1 to n do for j:=1 to m do readln(a[i,j]);
k:=0;
for i:=1 to n do for j:=1 to m do begin
k:=k+1;
b[k]:=a[i,j];
end;
for i:=1 to k-1 do for j:=i+1 to k do if b[i]>b[j] then begin
aux:=b[i];
b[i]:=b[j];
b[j]:=aux;
end;
for i:=1 to k do if i mod m =0 then writeln(b[i])
else write(b[i],' ');
end.
|
|
|
