Тема вопроса: нет. Найти правильный вариант

Сложность вопроса: 1 (из 10)

<question>248

Найти правильный вариант решения задачи: в двумерном массиве найти сумму положительных элементов.

program hj;

var a:array [1..5,1..5] of integer;

i,s,j:integer;

begin

for i:=1 to 5 do

for j:=1 to 5 do begin

readln (a[i,j]);

if a[i,j]>0 then s:=s+a[i,j];

end;

write (s);

end.

program hj;

var a:array [1..5,1..5] of integer;

i,j,s:integer;

begin

for i:=1 to 5 do for j:=1 to 5 do readln (a[i,j]);

for i:=1 to 5 do

for j:=1 to 5 do

if a[i]>0 then s:=s+1;

write (s) end.

program hj;

var a:array [1..5,1..5] of integer;

i,s,j:integer;

begin

for i:=1 to 5 do

for j:=1 to 5 do

readln (a[i,j]);

for i:=1 to 5 do

for j:=1 to 5 do

if a[i,j]< >0 then s:=s+1;

write (s)

end.

program hj;

var a:array [1..5,1..5] of integer;

i,j,s:integer;

begin

for i:=1 to 5 do

for j:=1 to 5 do

if a[i,j]<0 then s:=s+a[i,j];

write (s)

end.