Вpascalabc. в двумерном массиве размерностью n на - вопрос №2715932 от LEXUS2705 19.04.2020 03:00

Question

Информатика: Вpascalabc. в двумерном массиве размерностью n на m найти сумму положительных чётных элементов, меньших 10.

LEXUS2705 · Answer

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] < 10) and (a[b,c] > 0)) then s:= s+a[b,c];
writeln (s);
end.