Соберите программу. Введите количество случайных элементов массива от 0 до 100 и выведите их на экран. Подсчитайте и выведите количество четных элементов массива.

• var i,k,n:integer;
  a:array
  \[1\.\.10000\]
  of integer;
• begin
  randomize;
  readln\(n\);
• for i:=1 to n do begin
• a
  \[i\]
  :=random\(100\);
  write(a
  \[i\]
  , '
• if a
  \[i\]
  mod 2=0 then k:=k+1;
• end;
• write\('k=', k\);
• end.