Здравствуйте, gremyatskaya!

Смотрите приложение:
[code lang=pascal h=200]const
n=5;
m=7;
var
a:array[1..m,1..n]of integer;
b:array[1..m]of integer;
c:array[1..n]of integer;
i,j:integer;
begin
{сбрасываем сумму по строкам}
for i:=1 to n do c[i]:=0;
{начинаем вывод исходной матрицы}
randomize;
for i:=1 to m do
begin
{сбрасываем произведение исходной матрицы}
b[i]:=1;
for j:=1 to n do
begin
a[i,j]:=random(5)+1;{получаем элемент матрицы}
write(a[i,j]:5);{выводим его}
b[i]:=b[i]*a[i,j];{получаем произведение}
c[j]:=c[j]+a[i,j];{получаем сумму}
end;
writeln(b[i]:8);{выводим произведение}
end;
{выводим сумму}
writeln;
for i:=1 to n do write(c[i]:5);
readln;
end.[/code]
ТР 7,0
Удачи!