Question

Организовать с клавиатуры ввод N произвольных целых чисел. Найти сумму целых положительных чисел кратных 4 и меньших 60.(Pascal ABC)

Answer 1

var

 n,a,sum,i:integer;

begin

 write('n='); readln(n);

 sum:=0;

 writeln(-4 mod 4);

 for i:=1 to n do  

   begin

     readln(a);

     if (a mod 4=0) and (a<60) and (a>0) then

       sum:=sum+a;

   end;

 writeln('sum=',sum);

end.