const n=10;
Var i, k:integer ;
a:array [1..n] of integer ;
begin
For 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.

Ответы и объяснения

2014-03-12T17:14:46+04:00
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.