Даны 10 чисел, которые последовательно вводятся одно за другим. требуется вычислить сумму...

Question

Даны 10 чисел, которые последовательно вводятся одно за другим. требуется вычислить сумму только четных чисел. Помогите пожалуйста. Написать программу в Паскале ​

Answer 1

const size = 10;

Var

  sum: integer;

  arr: array[1..size] of integer;

   

Begin

  for var i := 1 to size do

  begin

     Write('Введите ', i, ' число: ');

     Readln(arr[i]);

     

     if (arr[i] mod 2 = 0) then

        sum := sum + arr[i];

  end;

   

  Writeln();

  Writeln('Сумма четных чисел = ', sum);

End.

---

Comments

спасибо большое

---

В обычном Pascal в цикле нельзя создать переменную-итератор. В следующий раз уточняйте, что Вы пишете программу на PascalABC.NET.

---

ну ок