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

Question

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

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 sa:=sa+a[i,j];       if b[i,j]>0 then sb:=sb*b[i,j];       if j=3 then sc:=sc+c[i,j];     end;   writeln(sa,sb,sc);End.