Дан массив А [1..10]. Найти кол-во чётных элементов.

Question

Дан массив А [1..10]. Найти кол-во чётных элементов.

Comments

const n=10;Var i, k:integer ;a:array [1..n] of integer ;beginFor i:=1 to n do Read (a[i]) ;k:=0;For i:=1 to n do If a[i] mod 2=0 then k:=k+1;Write (k) ;end.

Answer 1

Program P1;
var a:array[1..10] of integer;    
i, kolvo  :integer;
procedure kolvo1;    
begin     kolvo:=0;    
for i:=1 to 10 do        
if (i mod 2 = 0) then kolvo:=kolvo+1;    
end;
begin    
for i:=1 to 10 do        
readln(a[i]);    
kolvo1;    
writeln(kolvo);    
readln();
end.

Comments

Что такое procedure kolvo 1?