двумерный массив Опции

[help]

Такая вот задача:
Дана целочисленная матрица размером MxN
1. переставить строки матрицы в порядке возрастания суммы элементов строк
2. сформировать одном. численный массив В, где B[i] - равно сумме кратных 7-ми и расположенных в i-ой строке матрицы.

[volvo]

Вот вторая...

Код

uses crt;
const n=3; m=4;
type
 mass=array[1..n,1..m] of integer;
var
 i,j: integer;
 x:mass;
 b: array[1 .. n] of integer;
begin
  for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        x[i,j]:=random(6); write(x[i,j]:5);
      end;
    writeln;
  end;

 for i := 1 to n do
   for j := 1 to m do
     inc(b[i], x[i, j] * byte((x[i, j] mod 7) = 0));

 for i := 1 to n do
   write(b[i]:4);
end.

P.S. Упс, уже сделано?

Сообщение отредактировано: volvo - 12.01.2005 23:55