Question

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

Answer 1

program raf105;

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

i,j,sum:integer;

begin

writeln('Вводите 9 чисел по очереди:');

for i:=1 to 3 do

 for j:=1 to 3 do

 begin

   readln(a[i,j]);

   if (a[i,j] mod 4)=0

     then sum:= sum+a[i,j]

 end;

writeln('Сумма чётных элементов кратных четырём: ',sum);

end.

Язык программирования PascalABC