Составить программку на языке паскаль: Найдите сумму четных элементов массива целых

Составить программку на языке паскаль: Найдите сумму четных элементов массива целых чисел. Составить блок схему.

Задать свой вопрос
1 ответ
var
  a: array [1..5] of integer;
  i, s: integer;

begin
  for i := 1 to 5 do
    readln(i);
  for i := 1 to 5 do
    if (a[i] mod 2 = 0) then
      s := s + a[i];
end.
Шляхтур Тимур
Хорошо бы еще вывести итог на экран))
Виталик Котяскин
А, да, это важно ._.
Гена Кирдяшин
Хорошо бы еще вывести итог на экран))
Руслан Вашкин
А, да, это важно ._.
Павел Цылин
Хорошо бы еще вывести результат на экран))
Александр Шеликов
А, да, это главно ._.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт