Массив из 5 элементов заполнить случайными числами от 0 до 9 ,вывести элементы массива **...

Question

Массив из 5 элементов заполнить случайными числами от 0 до 9 ,вывести элементы массива на екран. Каких элементов в массиве больше–четных или нечётных (Паскаль)

Answer 1

var

 A: array [1..5] of Integer;

 i, c, nc: Integer;

begin

 c := 0;

 nc := 0;

 Randomize;

 for i := 1 to 5 do begin

   A [i] := Random (10);

   WriteLn (i, ': ', A [i]);

   if A [i] mod 2 = 0 then

     c := c + 1

   else

     nc := nc + 1;

 end;

 if c > nc then

   WriteLn ('четных элементов больше')

 else if nc > c then

   WriteLn ('нечетных элементов больше')

 else if nc = c then

   WriteLn ('четных и нечетных элементов равное количество');

 ReadLn;

end.

// Условие: "nc = c" написано "для надежности", такого быть не должно, так как количество элементов нечетно