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

Ответы 4

  • спасибо большое
    • Автор:

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

      madilynn
    • 5 лет назад
    • 0
  • ну ок
  • 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.

    answer img
    • Автор:

      alvarado
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years