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

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

Задать свой вопрос
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт