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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
