Написать код программы: вводим массив из 10 элементов, затем на новой строчке выводим только четные элементы этого массива (используем условие).

//Dev-C++ (C)

#include <stdio.h>

int main(void)
 {const int n=10;
 int ar[n],i;
 i=0;
 while(i<n)
  {scanf("%d",&ar[i]);
  i++;}
 i=0;
 while(i<n)
  {if(ar[i]%2==0)printf("%d ",ar[i]);
  i++;}
 return 0;
}

//PascalABC.NET 3.2 сборка 1318
Const
  n=10;

Var
  ar:array[1..n] of integer;
  i:integer;
begin
i:=1;
while(i<=n) do
  begin
    readln(ar[i]);
    i:=i+1;
  end;
i:=1;
while(i<=n) do
  begin
    if ar[i] mod 2=0 then write(ar[i],' ');
    i:=i+1;
  end;
end.

Пример ввода:
1
2
3
4
5
6
7
8
9
0
Пример вывода:
2 4 6 8 0