Двумерный массив, добавить строку Опции

[Катя]

Помогите с задачкой!
В заданный двумерный массив А добавить строку равную сумме элементов столвцов!!!
Помогите сделать!
Вроде можно как то через abs но я не заню как!
Помогите как сможите не обязательно через это!
Пожалуйста!

Сообщение отредактировано: Катя - 20.12.2005 2:55

[volvo]

Поможем... Только ты сначала объясни, что значит "добавить"? Как начальная матрица задана?

Пока могу предложить только вот такой вариант:

const
  n_max = 10;

var
  a: array[1 .. n_max, 1 .. n_max] of integer;
  n, i, j, s: integer;

begin
  write('n = '); readln(n);
  writeln('enter matrix: ');
  for i := 1 to n do begin
    writeln('row #', i, ': ');
    for j := 1 to n do begin
      write('a[', i:2, j:2, '] = '); readln(a[i, j]);
    end;
  end;

  for j := 1 to n do begin
    s := 0;
    for i := 1 to n do
      s := s + a[i, j];
    a[n+1, j] := s;
  end;

  writeln('after: ');
  for i := 1 to n + 1 do begin
    for j := 1 to n do
      write(a[i, j]:4);
    writeln;
  end;
  readln;
end.