Помогите с заданием...Дан массив. Напишите пропущенные команды. Ввести с клавиатуры...

Question

Помогите с заданием...Дан массив. Напишите пропущенные команды. Ввести с клавиатуры массив F, из 16 элементов целого типа, нумерация элементов начнется с 1 и найти кольчество четных элементов.Program Primer;......... d, kch:integer;beginfor d:=1 to ... do.....kch:=....for d:=1 to... doif .... then ......writeln......end.

---

Answer 1

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.