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

[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