Автор: Павел 26.05.2004 14:10
Одному знакомому дали задание:
"... для каждой матрицы отсортировать столбцы в порядке возрастания их максимальных эелементов."
Может кто подскажет код?
Автор: virt 26.05.2004 15:33
Код
program sort_mart_bu_max;
var a:array[1..10,1..10]of integer;
b:array[1..10]of integer;
i,j,k,n:integer;
vr:integer;
begin
read(n);
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
for i:=1 to n do b[i]:=a[1,i];
for i:=1 to n do
for j:=1 to n do
if b[j]<a[i,j] then b[j]:=a[i,j];
for i:=1 to n-1 do
for j:=i+1 to n do
if (b[i]>b[j]) then
begin
vr:=b[i];b[i]:=b[j];b[j]:=vr;
for k:=1 to n do
begin
vr:=a[k,i];
a[k,i]:=a[k,j];
a[k,j]:=vr;
end;
end;
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j],' ');
writeln;
end;
end.
Автор: Павел 27.05.2004 5:15
Большущее спасибо, все работает.