Программа, выполняющий следующий алгоритм:

решение задачи на Паскале
http://pastie.org/702373

const N=10;
var a:array[1..N] of integer;
b:array[1..N] of integer;
i,m:integer;
begin
writeln('Введите ',N,' чисел: ');
for i:=1 to N do readln(a[ i ]);

m:=0;
for i:=1 to N do
if a[ i ] mod 2 = 0 then begin
m:=m+1;
b[m]:=a[ i ];
end;

writeln('Чётные числа: ');
for i:=1 to m do writeln(b[ i ]);

readln();
end.

результат работы

Введите 10 чисел:
7
24
93
71
64
23
5
18
50
3
Чётные числа:
24
64
18
50

dim a(10)
dim b(10)
k=0

for i=1 to 10
input a(i)

if остаток a(i)/2 = 0 then
k=k+1
b(k)=a(i)
endif
next i

C++:
#include <vector>
using std::vector;
...
vector <int> VyborChetnyhChisel (vector <int> Input)
{
vector <int> Output;
for(int i=0; i < Input.size() ; i++)
if( Input [ i ] % 2 == 0)
Output.pushback(Input);
}
return Output;
}

int mas[10];// массив целых чисел, 10 элементов
int k=0;
int save[10];

for ( int i = 0; i < 10 ; i + +) {// повторяем десять раз
cin >> mas [ i ] ; // Ввод чисел пользователем
if( mas [ i ] %2 = = 0 ) {
save[k]= mas [ i ] ; // сохраняем четные
k++;
}
}

for ( int i = 0; i < k ; i + +) // повторяем k раз
cout << save [ i ];