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

Question

Информатика

Валяха

6 сентября, 23:58

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

+5

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