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

[help]

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

[klem4]

1-я

Пока только так :

Код

uses crt;
const n=3;
     m=4;
type
  mass=array[1..n,1..m] of integer;
var i,j,k,t:integer;
   x:mass;
function sum(i,j:integer):integer;
var s:integer;
begin
  s:=0;
  for j:=1 to m do
   s:=s+x[i,j];
  sum:=s;

end;

Begin
  clrscr;
  randomize;
  for i:=1 to n do
   begin
      k:=i;
      begin
         for j:=1 to m do
          begin
             x[i,j]:=random(6);
             write(x[i,j]);
             write(' ');
          end;
          writeln;
      end;
  end;

  for i:=1 to n-1 do
   for k:=i+1 to n do
    if sum(i,j)<sum(k,j) then
      begin
         for j:=1 to m do
          begin
             t:=x[i,j];
             x[i,j]:=x[k,j];
             x[k,j]:=t;
          end;
          end;
      writeln;

  for i:=1 to n do
   begin
      for j:=1 to m do
       begin
          write(x[i,j]);
          write(' ');
       end;
       writeln;
    end;
  readln;
  end.

Сообщение отредактировано: klem4 - 13.01.2005 0:18

[klem4]

2-я

Код

uses crt;
const n=4;
var  a:array[1..n,1..n] of integer;
    b:array[1..n] of integer;
    i,j,s:integer;
Begin
  clrscr;
  randomize;
  for i:=1 to n do
   begin
      for j:=1 to n do
       begin
          a[i,j]:=random(22);
          write(a[i,j]:2);
          write(' ');
       end;
       writeln;
    end;
   for i:=1 to n do
    begin
       b[i]:=0;
       s:=0;
       for j:=1 to n do
        if a[i,j] mod 7 = 0 then
         s:=s+a[i,j];
       b[i]:=s;
    end;
   writeln;
   for i:=1 to n do
    begin
       write(b[i]:2);
       write(' ');
    end;
   readln;
end.

[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

[klem4]

хех,volvo,здорово, но я тоже старался

byte((x[i, j] mod 7) = 0));

вот этого я еще не видел

[help]

Спасибо парни! Помогли!