Дан массив чисел. определить каких чисел больше четных или нечетных. введите массив целых чисел из 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.

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