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

Напишите программку,которая в последовательности естественных чисел определяет сумму чисел,кратных 3.Программа ролучает на вход количество чисел в последовательности,а затем сами числа.В последовательности всегда имеется число,кратное 3.Количество чисел не превосходит 100.Введённые числа не превосходят 300.Программка обязана вывести одно число-сумму чисел,кратных 3.

Задать свой вопрос
1 ответ
Var
  n, a, s,i: integer;
 
begin
  s := 0;
  read(n);
  for i := 1 to n do
  begin
    read(a);
    if(a mod 3 = 0) then s := s + a;
  end;
  write(s);
end.

VVVVVVVVVVVVVV
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт