Составьте программу вычисления суммы положительных элементов двухмерного массива

Question

Информатика

Святополк

4 февраля, 00:25

Составьте программу вычисления суммы положительных элементов двухмерного массива

+1

Ответы (1)

Знаете ответ на вопрос?

Филофей · Answer 1

Var a, b, c:array [1 ... 100,1 ... 100] of integer; as, bs, cs, i, j:integer; Begin sb:=1; for i : = 1 to n do for j: = 1 to n do begin if a[i, j]0 then sb:=sb*b[i, j]; if j=3 then sc:=sc+c[i, j]; end; writeln (sa, sb, sc) ; End.