Предмет: Информатика,
автор: lizagolowan
Дана последовательность из n целых чисел. Найти сумму нечётных элементов этой последовательности.
Ответы
Автор ответа:
0
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.
Похожие вопросы
Предмет: История,
автор: zhadosgazizov2800006
Предмет: История,
автор: Kotikcat02
Предмет: Қазақ тiлi,
автор: ssss153
Предмет: Математика,
автор: алёнаевгеньевна