Елена Колесник
Количество четных элементов в векторе из 10 компонентов. (Turbo Pascal) Помогите, пожалуйста, составить программу.
(Turbo Pascal) Помогите, пожалуйста, составить программу.
(Turbo Pascal) Помогите, пожалуйста, составить программу.
С точностью до грамматики.
var
a: array [1..10] of integer;
i,c:integer;
begin
c:=0;
for i := 1 to 10 do
begin
if a [ i ] mod 2 = 0 then c:=c+1;
end;
writeln(c) ;
end.