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

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

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

В массиве \(15\) чисел: \(6\) чётных и \(9\) нечётных, поэтому нечётных чисел больше.

Программа на Pascal:

program CountEvenOdd;
var
  a: array[1..15] of integer;
  i, evenCount, oddCount: integer;
begin
  evenCount := 0;
  oddCount := 0;
  for i := 1 to 15 do
  begin
    read(a[i]);
    if a[i] mod 2 = 0 then
      evenCount := evenCount + 1
    else
      oddCount := oddCount + 1;
  end;
  if evenCount > oddCount then
    writeln('Четных чисел больше')
  else if oddCount > evenCount then
    writeln('Нечетных чисел больше')
  else
    writeln('Четных и нечетных чисел поровну');
end.

Введите числа через пробел: 8 15 17 10 5 2 87 33 28 99 14 75 13 25 64

0 0 Пожаловаться