Дана последовательность из n целых чисел. Найти сумму нечётных элементов этой последовательности.

Ответы:

ТАНЯ СЕМЁНОВА

16-01-2014 12:36

Program work; Var chisla:array [1..n] of integer; sum, i:integer; Begin For i:=1 to n do Begin If chisla [i] mod 2 <>0 then Sum:=sum+chisla[i]; End; Writeln (sum); End.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя ЛЮДА КОВАЛЬ

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Дана последовательность из n целых чисел. Найти сумму нечётных элементов этой последовательности.» от пользователя ЛЮДА КОВАЛЬ в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!