Question

Паскаль. Найти произведение сумм положительных элементов столбцов матрицы Подскажите пожалуйста, что нужно вписать программу, чтобы выводило ПРОИЗВЕДЕНИЕ сумм столбцов вот программа, которая вычисляет сумму положительных элементов столбца 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. Как мне посчитать произведение сумм????

Answer 1

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

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