Дан массив чисел. Определить каких чисел больше четных или нечетных. Введите массив целых чисел из 15 элементов:

8,15,17,10,5,2,87,33,28,99,14,75,13,25,64 Нечетных чисел больше чем четных

программа:Pascal Пожалуйста!!!!!

var a:array [1..15] of integer;

i,k:integer;

BEGIN

k:=0;

writeln('Введите числа');

for i:=1 to 15 do begin

read(a[i]);

if (a[i] mod 2=0) then k:=k+1;

end;

if k<8 then

writeln('Нечетных чисел больше, чем четных.') else

writeln('Четных чисел больше, чем нечетных.');

end.

Без массива:

Program n_1;

var a, b, i, n: integer;

begin

   a:=0; b:=0;

   for i:=1 to 15 do begin

       read(n);

       if n mod 2 = 1 then a:=a+1

       else b:=b+1;

   end;

   if a>b then writeln('Нечетных чисел больше, чем четных')

   else writeln('Четных чисел больше, чем нечетных');

end.

С массивом:

Program n_1;

var a, b, i: integer; n: array [1..15] of integer;

begin

   a:=0; b:=0;

   for i:=1 to 15 do begin

       read(n[i]);

       if n[i] mod 2 = 1 then a:=a+1

       else b:=b+1;

   end;

   if a>b then writeln('Нечетных чисел больше, чем четных')

   else writeln('Четных чисел больше, чем нечетных');

end.

Но честно, не вижу смысла использовать массив.