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

Question

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

Answer 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.

---

Comments

Хорошо бы еще вывести результат на экран))

---

А, да, это важно ._.