Составить программу. дан массив n*m. определить сумму положительных элементов

Question

Информатика

Ларя

6 августа, 09:24

Составить программу. дан массив n*m. определить сумму положительных элементов

+4

Ответы (1)

Знаете ответ?

Корнила · Answer 1

Var

a:array [1 ... 100,1 ... 100] of longint;

i, j, k, n, m:longint;

begin

readln (n, m) ;

for i:=1 to n do

for j:=1 to m do

read (a[i. j]) ;

for i:=1 to n do

for j:=1 to m do

if a[i, j]>0 then inc (k, a[i, j]) ;

writeln (k) ;

end.