С помощью функции RANDOM сформировать матрицу 7x7. Из нее получить две матрицы. Первая получается перестановкой строк исходной матрицы в порядке возрастания их среднего арифметического. вторая столбцов.
Если за час не сделаю, то мне хана
М | Переименуй. Закрою.. |
const
n=7;
var
a,b,c: array[1..n,1..n]of integer;
i,j,k,x,y,s,t: integer;
begin
for i:=1 to n do for j:=1 to n do a[i,j]:=Random(10);
for i:=1 to n do begin
for j:=1 to n do Write(a[i,j],' ');
WriteLn
end;
for j:=1 to n do b[1,j]:=a[1,j];
for i:=1 to n do begin
s:=0;
for j:=1 to n do s:=s+a[i,j];
k:=0;
repeat
Inc(k);
t:=0;
for j:=1 to n do t:=t+b[k,j]
until (t>s) or (k=i);
if t>s then for x:=n downto k+1 do for y:=1 to n do b[x,y]:=b[x-1,y];
for j:=1 to n do b[k,j]:=a[i,j]
end;
WriteLn;
for i:=1 to n do begin
for j:=1 to n do Write(b[i,j],' ');
WriteLn
end;
ReadLn
end.