Для различных вводимых с клавиатуры целых чисел найдите сумму положительных нечетных.

Question

Для различных вводимых с клавиатуры целых чисел найдите сумму положительных нечетных.

Comments

Язык какой программирования?

---

Pascal

---

ок

Answer 1

Program noname;
var a,b,c,d:integer;
begin
readln(a);
b:=1;
d:=0;
while(b<>a) do begin
readln(c);
if (c mod 2)=1 then d:=d+c;
b:=b+1;
end;
writeln(d);
end.

Comments

Если ок, то сделай лучшим, плиз