Программа получает ** вход количество чисел в последовательности, а затем сами числа....

Question

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

Answer 1

//PascalABC.NET
var
    s : integer;
begin
    var n := ReadlnInteger('Сколько будет чисел? ');
    writeln('Вводите числа');
    var a := ReadArrInteger(n);
    for var i:=0 to n-1 do
        if (a[i] mod 10 = 4) and
            (a[i] mod 7 = 0) then
            s := s + a[i];
    writeln('Сумма чисел равна ', s)
end.

---