var
n,i: integer;
a: array [1..10] of integer;
begin
n:=0;
for i:=1 to 10 do
begin
read (a[i]);
if a[i] mod 2=0 then n:=n+1;
end;
writeln ('четных значений -',n);
end.
Готово :)
..............................
В Операционной системе Windows:
1 значок это "Помощь"
2 значок это "Занят"
3 значок это "Выделение текста"
4 значок это "Недоступно"
5 значок это "Изменение вертикальных размеров"
6 значок это "Изменение горизонтальных размеров"
7 и 8 значок это "Изменение размеров по диагонали 1" "Изменение размеров по диагонали 2"
9 значок это "Переместить"
<span>100011011101 = 2269. Изначально число уже в двоичной системе</span>