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

Question

Информатика

Сюра

11 сентября, 11:10

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

+2

Ответы (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.