Дана последовательность целых чисел, оканчивающаяся 0. Вывести ** экран все нечетные...

Question

Дана последовательность целых чисел, оканчивающаяся 0. Вывести на экран все нечетные числа этой последовательности.

Comments

ГИА чтоле ?

---

Неа

---

в строчку вывести , или в столбец ?

---

Столбец

---

в общем я массивом сделал

Answer 1

Все на картинке 

---

Comments

program one;
var a:array[1..1000] of integer ;
b,c:integer;
begin
readln(b);
for c:=1 to b do
readln(a[c]);
for c:=1 to b do
if a[c] mod 2 <> 0 then writeln(a[c]);
end.

---

воть

---

а стой

---

нулем кончаться

---

щас переделаю

---

program one;
var g:array[1..1000] of integer;
a,b,c,d:integer;
begin
b:=0;
d:=0;
readln(a);
while a<>0 do
begin
b:=b+1;
d:=d+1;
if (a mod 2 <> 0) then g[b]:=a;
readln(a);
end;
for b:=1 to d do
writeln(g[b]);
end.

---

Спасибо, выручил

---

ноль между числами , поставлен для разделения

---

если что