Вывести все четные числа из данного набора в том же порядке.

[shady]

Дано целое число N и набор из N ненулевых целых чисел. Вывести в том же порядке все четные числа из данного набора и количество K таких чисел.
Задачу решить пользуясь исключительно циклами и ветвлениями.

Используется синтаксис Pascal

var i,n,ch,kol:integer;
 
BEGIN
   read(n);
   kol:=0;
   For i:=1 to n do
      Begin
          read(ch);
          If ch mod 2 = 0 then 
              write(ch);
              kol:=kol+1;
      End; 
   write('Количество четных чисел в наборе:  ',kol);
END.
 

Я смог сосчитать количество четных чисел, но не могу понять как их вывести в той же последовательности.
В начале я должен последовательно задавать числа набора т.е. условие задачи я представляю себе таким:
"Ввод: 1968435"
"Вывод:684"
Как осуществить такой вывод пользуясь исключительно циклами и ветвлениями? Использовать переменную в которой я бы хранил четное число? Но ведь если четных чисел будет несколько, то в переменной останется последнее введенное четное число. Помогите, пожалуйста, разобраться полному (цензура!) Спасибо.

[gris]

Если Вы числа вводите по одному, то по одному и выводИте, написав дополнительный write в if.
Если числа располагаются в массиве, то в массив и загоняйте. Можно в то же самый.

[venco]

shady в сообщении #538627 писал(а):

В начале я должен последовательно задавать числа набора т.е. условие задачи я представляю себе таким:
"Ввод: 1968435"
"Вывод:684"

А не путаете ли вы понятия "число" и "цифра"?

[shady]

Цифры: 0..9;
Число: 12736,394,0.434;

-- 14.02.2012, 19:12 --

gris Вы это имели ввиду?

Используется синтаксис Pascal

var i,n,ch,kol:integer;
 
BEGIN
   read(n);
   kol:=0;
   For i:=1 to n do
      Begin
          read(ch);
          If ch mod 2 = 0 then
              write(ch);
              kol:=kol+1;
      End;
   write('Количество четных чисел в наборе:  ',kol);
END.
 

-- 14.02.2012, 19:28 --


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

[gris]

Начинать надо всегда с интерфейса, пусть даже примитивного. Определите, как будет выглядеть на экране диалог, а потом программируйте. Если сначала вводятся все числа, а потом уже выводятся чётные, то по ходу ввода чётные надо записывать в массив. После ввода последнего, а их число задано, начинайте вывод.

[Alexu007]

gris в сообщении #538660 писал(а):

Если сначала вводятся все числа, а потом уже выводятся чётные, то по ходу ввода чётные надо записывать в массив...

В предлагаемом коде - нужен динамический массив для хранения N входных чисел и два цикла, в первом заполняем массив, во втором - выводим чётные числа и считаем их количество.

[oveka]

Какое задание, такая раскрутка у Вас и на экране.
В чём сомнения?

[Alexu007]

На скрине работа не этой программы. В приведённом коде если введённое число чётное, оно сразу же выводится на экран. Работа этой программы должна выглядеть примерно так:

_3
_5
_6
6
_7
_8
8