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" написано "для надежности", такого быть не должно, так как количество элементов нечетно

Answer 2

Для выполнения данной задачи в Pascal, нужно выполнить следующие шаги:

1. Объявить массив из 5 элементов.
2. Заполнить массив случайными числами от 0 до 9.
3. Вывести элементы массива на экран.
4. Посчитать количество четных и нечетных элементов массива.
5. Сравнить количество четных и нечетных элементов и определить, каких элементов больше.

Вот пример кода на Pascal, реализующего это:

pascalCopy code
program CountEvenOddElements;

const
  N = 5; // Количество элементов в массиве

var
  arr: array[1..N] of Integer;
  i, evenCount, oddCount: Integer;

begin
  // Инициализируем генератор случайных чисел
  Randomize;

  // Заполнение массива случайными числами от 0 до 9
  for i := 1 to N do
    arr[i] := Random(10);

  // Вывод элементов массива на экран
  WriteLn('Элементы массива:');
  for i := 1 to N do
    Write(arr[i], ' ');

  // Подсчет количества четных и нечетных элементов
  evenCount := 0;
  oddCount := 0;
  for i := 1 to N do
  begin
    if arr[i] mod 2 = 0 then
      Inc(evenCount)
    else
      Inc(oddCount);
  end;

  // Определение, каких элементов больше
  if evenCount > oddCount then
    WriteLn('В массиве больше четных элементов.')
  else if evenCount < oddCount then
    WriteLn('В массиве больше нечетных элементов.')
  else
    WriteLn('Количество четных и нечетных элементов равно.');
end.

Запустив этот код, вы увидите вывод элементов массива и информацию о том, каких элементов больше: четных или нечетных.