Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Паскаль. Найти произведение сумм положительных элементов столбцов матрицы
Подскажите пожалуйста, что нужно вписать программу, чтобы выводило ПРОИЗВЕДЕНИЕ сумм столбцов
вот программа, которая вычисляет сумму положительных элементов столбца
program hhhhhhh;
uses crt;
const mx = 20;
var a: array [1..mx, 1..mx] of integer;
i, r, j, c: integer;
p: double;
s:real;
found: boolean;
begin
randomize;
write(Введите кол-во строк (1.., mx, ): );
readln(r);
writeln;
if (r<1) or (r> mx) then
writeln( не верно введены данные!!!)
else
write(Введите кол-во столбцов (1.., mx, ): );
readln(c);
if (c<1) or (c> mx) then
writeln( не верно введены данные!!!)
else
writeln;
writeln( Исходная матрица:);
writeln;
for i := 1 to r do
begin
for j := 1 to c do
begin
a[i, j] := -99 + random(199);
write(a[i, j]:4)
end;
writeln;
end;
writeln;
writeln;
writeln( Сумма положительных элементов столбцов матрицы:);
writeln;
writeln;
for j := 1 to c do
begin
s:=1;
p := 0;
found := false;
writeln;
write(В ,j:2, столбце: );
for i := 1 to r do
if (a[i, j] > 0)then
begin
p := p + a[i, j];
found := true
end;
if found
then writeln(p:0:0)
else writeln(Положительные элементы не найдены!!!);
end;
end.
Как мне посчитать произведение сумм????

Ответ оставил Гость

Заводим массив, в котором будут располагаться суммы положительных элементов соответствующего столбца, а потом в цикле находим их произведение, например, в массиве получены следующие суммы:

S[1] , S[2], S[3] ....S[n]  - суммы элементов столбцов (число столбцов равно n)
Тогда поможет фрагмент :
P:=1;
for i := 1 to n do
   P:=P * S[i];
Writeln ( P = , P)