Program kol_vo_elementov; var a:array[1..10] of integer; i, n, k:integer; begin writeln('Введите кол-во элементов'); readln(n); k:=0; for i:=1 to n do begin writeln('Введите число'); readln(a[i]); if (i mod 2=0) then k:=k+1; end; writeln('Кол-во чётных элементов=',k); end.