Question

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

Answer 1

var a,i,k,sum:integer;

begin

read(a);

for i:=1 to a do begin

read(k);

if(k mod 3 =0)and(k<150)then sum:=sum+k;

end;

write(sum);

end.