даны 10 чисел, которые последовательно вводятся одно за другим. требуется вычислить сумму только четных чисел. Помогите пожалуйста. Написать программу в Паскале
Ответы
Ответ дал:
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.
Приложения:
Ответ дал:
0
спасибо большое
Ответ дал:
0
В обычном Pascal в цикле нельзя создать переменную-итератор. В следующий раз уточняйте, что Вы пишете программу на PascalABC.NET.
Ответ дал:
0
ну ок
Похожие вопросы
2 года назад
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад