Pascal и блок схему пж 19.В двумерном массиве действительных чисел найти сумму четных...

Question

Pascal и блок схему пж
19.В двумерном массиве действительных чисел найти сумму четных элементов.

Answer 1

Program TuKpa6noJlHbiII;const n=5;vara:array[1..n] of integer;sum,i:integer;BEGINsum:=0;for i:=1 to n do  begin    a[i]:=i;  end;for i:=1 to n do  begin    if not (odd(i)) then      begin        sum:=sum+a[i];      end;  end;  writeln('cyMMa 4eTHbiX eJleMeHToB =',sum);END.