Ответы на вопрос:
Var i, a, n, sum: integer; begin write('кол-во чисел = '); readln(n); for i: =1 to n do begin readln(a); if a mod 2 < > 0 then sum: = sum + a; end; writeln('сумма нечетных = ',sum); end.
Популярно: Информатика
-
АртёмПлотников24.03.2022 00:19
-
ssyyppeerrmmaax24.06.2023 12:37
-
ПОМОГИТЕ1321704.04.2020 01:10
-
Руслан22812332115.01.2022 14:55
-
SHEVTSOVA118308.07.2021 02:41
-
ваня200712302.04.2023 11:57
-
helloiSashA27.01.2023 02:50
-
Фёкла1104.12.2022 18:56
-
akdavletovaalfia28.03.2023 13:12
-
dimaahmet615.06.2023 18:58