Предмет: Информатика, автор: beezy05

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

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

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

Ответы

Автор ответа: supersuperkirip54irs
0

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.

Автор ответа: MrMiner1
0

Без массива:

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.

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

Похожие вопросы