Помогите с заданием...

Дан массив. Напишите пропущенные команды. Ввести с клавиатуры массив F, из 16 элементов целого типа, нумерация элементов начнется с 1 и найти кольчество четных элементов.

Program Primer;
......... d, kch:integer;
begin
for d:=1 to ... do.....
kch:=....
for d:=1 to... do
if .... then ......
writeln......
end.

Ответ

Автор - MrMiner1

Program Primer;

var F:array [1..16] of integer; d, kch: integer;

begin

for d:=1 to 16 do read(F[d]);

kch:=0;

for d:=1 to 16 do

if (F[d] mod 2 = 0) then kch:=kch+1;

writeln(kch);

end.

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.