Даны четыре целых числа.Определить сумму тех из них,которые кратны трём.Составить...

Question

Даны четыре целых числа.Определить сумму тех из них,которые кратны трём.Составить программу в паскале.Заранее спасибо!!!

Answer 1

Uses crt;
var a:array[1..4] of integer;
     sum,i:integer;
begin
clrscr;
writeln('Введите 4 целых числа:');
for i:=1 to 4 do
   begin
   read(a[i]);
   if a[i]mod 3=0 then sum:=sum+a[i];
   end;
writeln('Сумма чисел, кратных трем:  ',sum);
end.