Информатика, опубликовано 2018-08-22 23:51:40 by Гость
СРОЧНО. Задание в PascalABC.В двумерном массиве размерностью N на M найти сумму положительных чётных элементов, меньших 10.
Ответ оставил Гость
Var
a: array [1..10000,1..10000] of integer;
c,s,b,n,m: integer;
begin
readln (n,m);
for b:=1 to n do
for c:=1 to m do
readln (a[b,c]);
for b:=1 to n do
for c:=1 to m do
if ((a[b,c] 0)) then s:= s+a[b,c];
writeln (s);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на