Напишите программу,которая в последовательности натуральных чисел определяет сумму чисел,кратных 3.Программа ролучает на вход количество чисел в последовательности,а затем сами числа.В последовательности всегда имеется число,кратное 3.Количество чисел не превышает 100.Введённые числа не превышают 300.Программа должна вывести одно число-сумму чисел,кратных 3.
Answers & Comments
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