Господа, простейшая лаба по pasc, матрица Amxn

[Горе-студент]

Дана матрица Amxn найти в ней суммы элементов по строкам и слобцам.

молю о помощи, все прогулял, ничего не знаю, завтра сдавать, спасайте

нашел вроде по столбцам:

uses crt;
const n=5; m=4;
var a:array[1..n,1..m]of integer;
i,j,s:integer;
 
begin
 clrscr;
 randomize;
 writeln('Исходный массив');
 for i:=1 to n do
 begin 
  for j:=1 to m do
  begin
    a[i,j]:=random(100);
    write(a[i,j]:3);
  end;
  writeln;
 end;
 
 for j:=1 to m do
 begin
  s:=0;
  for i:=1 to n do s:=s+a[i,j];
  writeln('Столбец ',i,' = ',s);
 end;
 readln;
end.

еще кое что
Подсчет сумм элементов по строкам:

for i:=1 to n do begin 
sum:=0; 
for j:=1 to n do sum:=sum+x[i,j]; 
wrintln('Сумма ',i,'-й строки',sum); 
end;

Подсчет сумм элементов по столбцам:

for j:=1 to n do begin 
sum:=0; 
for i:=1 to n do sum:=sum+x[i,j]; 
wrintln('Сумма ',j,'-го столбца ',sum); 
end;

[ROMA2PVT]

ну и что?второй и третий фрагменты верны.в прогу их соедини и вуаля.

[Stilet]

Чет я не понял... Ты же нашел код и на то и на другое?
Что мешает вставить его в программу?

[Горе-студент]

Я вобще пень, в инфе просто деревянный(

[ROMA2PVT]

приду домой сделаю.если некто раньше ненапишет.

[ROMA2PVT]

как обещал:

uses crt;
var
  a:array[1..20,1..20]of integer;
  i,j,m,n,sumcolumn,sumstring:integer;
begin
 clrscr;
 randomize;
 write('Введите количество строк: ');
 readln(n);
 write('Введите количество столбцов: ');
 readln(m);
 writeln('Исходный массив');
 for i:=1 to n do
 begin
  for j:=1 to m do
  begin
    a[i,j]:=random(10)-5;
    write(a[i,j]:3);
  end;
  writeln;
 end;
 writeln;
 writeln('<<СУММА ЭЛЕМЕНТОВ СТОЛБЦОВ>>':50);
for j:=1 to m do
 begin
  sumcolumn:=0;
  for i:=1 to n do
  sumcolumn:=sumcolumn+a[i,j];
  writeln('Сумма элементов ',j,'-го столбца:=',sumcolumn);
 end;
 Writeln;
 writeln('<<СУММА ЭЛЕМЕНТОВ СТРОК>>':50);
 for i:=1 to n do
 begin
sumstring:=0;
for j:=1 to m do
sumstring:=sumstring+a[i,j];
writeln('Сумма элементов ',i,'-й строки:=',sumstring);
end;
 readln;
end.

[Горе-студент]

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