citeste n;
pentru ( i de la 0, cat timp i < n, i = i+1 )
citeste a[i];
pare = 0;
pentru ( i de la 0, cat timp i < n, i = i+1 )
daca (a[i] %2 = 0 ) pere = pare + 1;
scrie pare
Sau daca nu vrei sa memorezi inutil toate elementele din vector :
citeste n;
pentru ( i de la 0, cat timp i < n, i = i+1 ){
citeste a
daca (a%2 == 0 ) pare = pare + 1;
}
scrie pare
