Массив и элементы! Опции

[Вернант]

Задан массив B из 15 элементов целого типа.Посчитать количество четных элементов
массива.

[___ALex___]

Код

program forum;  
var
x: Integer;  
i, count:Byte;  
begin  
writeln('ввести массив');  
for i:=1 to 15 do begin
read(x);  
if x mod 2 = 0 then Inc(count);  
end;  
writeln('кол-во',count);  
ReadLn  
end.

PS по жизни чё нить забудешь

Сообщение отредактировано: volvo - 17.12.2004 15:11