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

Question

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 7 и оканчивающихся на 4. Программа получает на вход количество чисел в последовательности,а затем сами числа. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: сумму всех чисел, кратных 7 и оканчивающихся на 4.

Answer 1

Var a:array[1..1000] of integer; 
sum,n,i:integer; 
begin 
sum:=0; 
writeln('Введите количество чисел'); 
read(n); 
writeln('Введите числа'); 
for i:=1 to n do begin 
read(a[i]); 
if (a[i] mod 7=0) and (a[i] mod 10=4)then sum:=sum+a[i]; 
end; 
writeln('Сумма элементов кратных 7 и оканчиваюшихся на 4 = ',sum); 
end.