матрица, перестановка строчек и столбцов в порядке возрастания среднего арифмет Опции

[lalala]

С помощью функции RANDOM сформировать матрицу 7x7. Из нее получить две матрицы. Первая получается перестановкой строк исходной матрицы в порядке возрастания их среднего арифметического. вторая столбцов.

Если за час не сделаю, то мне хана

Сообщение отредактировано: lalala - 12.12.2008 13:37

[Lapp]

М

Переименуй. Закрою..

[lalala]

Окей. И как лучше назвать?

[Lapp]

Вот тебе первый случай, со строками. Столбцы точно так же, только индексы переставь.

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.