В заданном одномерном массиве, состоящем из 7 целых чисел, подсчитать количество четных элементов. Элементы вводятся с клавиатуры.

uses crt; var a:array [1..100] of integer; i,m,n:integer; begin write('Введите размерность массива: ');read(n); writeln; for i:=1 to n do begin a[i]:=random(10)+1; if a[i] mod 2=0 then begin m:=m+1; end; write(a[i]:3); end; writeln; write('Колличество четных элементов: ',m) end.