Question

Напишите программу,которая в последовательности натуральных чисел определяет сумму чисел,кратных 3.Программа ролучает на вход количество чисел в последовательности,а затем сами числа.В последовательности всегда имеется число,кратное 3.Количество чисел не превышает 100.Введённые числа не превышают 300.Программа должна вывести одно число-сумму чисел,кратных 3.

Answer 1

Var
  n, a, s,i: integer;
 
begin
  s := 0;
  read(n);
  for i := 1 to n do
  begin
    read(a);
    if(a mod 3 = 0) then s := s + a;
  end;
  write(s);
end.

VVVVVVVVVVVVVV