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

Question

Напишите программу, которая в последовательности натуральных чисел определяет сумму нечетных чисел, меньших 40. программа получает на вход количество чисел в последовательности, а затем сами числа. кол-во чисел не превышает 1000. введеные числа не превышают 30000. программа должна вывести одно число - сумму нечетных чисел, меньших 40. пример работы программы：входные данные 3 21 54 37 выходные данные 58. Pascal ABC

Answer 1

var n,a,s,i:integer;
begin
readln(n);
s:=0;
for i:=1 to n do
begin
readln(a);
if (a mod 2=1)and(a<40) then s:=s+a;<br> end;
writeln(s);
end.

Пример:
3
21
54
37
58