Напишите программу, которая в последовательности натуральных чисел определяет сумму...

Question

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

Answer 1

Var
a,sum,i,n:integer;
Begin
Writeln('Введите количество чисел в последовательности');
Readln(n);
Writeln('Вводите числа');
For i:=1 to n do
begin
Readln(a);
If (a mod 2 = 0) and (a mod 3 <>0) then sum:=sum+ a;
end;
Writeln('Сумма четных чисел не кратных 3 = ', sum);
end.