//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 сборка 1318Const n=10;Var ar:array[1..n] of integer; i:integer;begini:=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.Пример ввода:1234567890Пример вывода:2 4 6 8 0