Question

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

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.

Answer 2

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