Дана матрица размером n*m. Найти суммы элементов в каждом столбце матрицы и дополнить матрицу найденными значениями, поместив их в конце каждого столбца.

[Kitozoy]

Помогите с заданием пожалуйста:
Дана матрица размером n*m. Найти суммы элементов в каждом столбце матрицы и дополнить матрицу найденными значениями, поместив их в конце каждого столбца.

[newerow1989]

const n=10;
      m=8;
var p:array[1..n,1..m] of integer;
    i,j,s:integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      For j:=1 to m do
      begin
         p[i,j]:=Random(11);
         Write(p[i,j]:2,'  ');
      end;
      Writeln;
   end;
   Writeln;
   For j:=1 to m do
   begin
      s:=0;
      For i:=1 to n do
         s:=s+p[i,j];
      Write(s:2,'  ');
   end;
   Writeln;
   Readln;
end.

[Aleksandr H.]

Что в таких задачах значит фраза:

дополнить матрицу найденными значениями

?
Что в матрице есть выделенный элемент для результата или что надо программно расширять размеры массива?

program HelloWorld;
const n=10;
      m=8;
var p:array[1..n+1,1..m] of integer;
    i,j:integer;
begin
   Randomize;
   For i:=1 to n do
      For j:=1 to m do
      begin
         p[i,j]:=Random(11);
         p[n+1,j] := p[n+1,j]+p[i,j];
      end;
   For i:=1 to n+1 do
   begin
      for j:=1 to m do
         write(p[i,j]:3,' ');
      writeln;
   end;
end.