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

Question

Дан массив чисел. Определить каких чисел больше четных или нечетных. Введите массив целых чисел из 15 элементов: 8,15,17,10,5,2,87,33,28,99,14,75,13,25,64 Нечетных чисел больше чем четных программа:Pascal Пожалуйста!!!!!

Answer 1

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</p>

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

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

end.

Answer 2

Без массива:

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.

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