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

[Вернант]

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

[AlaRic]

Код

program forum;
uses wincrt;
const n=15;
type a=array[1..n] of integer;
var b:a;
i:word;
count:integer;
begin
count:=0;
writeln('ввести массив');
for i:=1 to n do read(b[i]);
for i:=1 to n do
if (b[i] mod 2=0) then count:=count+1;
writeln('кол-во',count);
end.

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