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

1
ГИА чтоле ?
Неа
в строчку вывести , или в столбец ?
Столбец
в общем я массивом сделал

Ответы и объяснения

2013-10-29T17:20:10+00:00
Все на картинке 
щас переделаю
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.
Спасибо, выручил
ноль между числами , поставлен для разделения
если что