Question

В одном массиве произвольных чисел найдите количество нечетных элементов (Паскаль)

Answer 1

Const
  n=20;
var
  a:array[1..n] of integer;
  i,s:integer;
begin
  writeln('Исходный массив');
  s:=0;
  Randomize;
  for i:=1 to n do begin
    a[i]:=Random(100)-50;
    if a[i] mod 2 <> 0 then s:=s+1;
    write(a[i]:5)
  end;
  writeln;
  writeln('Количество нечетных элементов равно ',s)
end.

Тестовое решение:

Исходный массив
  -10  -26   -5   36  -48   41  -10    5   46   -1   -5    1   19  -11  -10   31    9  -31   -4  -40
Количество нечетных элементов равно 11

Answer 2

Вот пример кода на языке Паскаль, который позволяет найти количество нечетных элементов в произвольном массиве чисел:

pascalCopy code
program CountOddElements;

const
  N = 10; // размер массива

var
  arr: array[1..N] of Integer; // объявление массива
  count: Integer; // переменная для хранения количества нечетных элементов
  i: Integer; // счетчик цикла

begin
  // Заполнение массива произвольными числами
  for i := 1 to N do
    arr[i] := Random(100); // генерируем случайное число от 0 до 99
  
  // Подсчет количества нечетных элементов
  count := 0; // инициализируем счетчик нулем
  for i := 1 to N do
  begin
    if arr[i] mod 2 <> 0 then // проверяем, является ли элемент нечетным
      count := count + 1; // увеличиваем счетчик, если элемент нечетный
  end;
  
  // Вывод результата
  writeln('Количество нечетных элементов: ', count);
  
  // Ожидание ввода перед завершением программы
  readln;
end.

В этом примере мы объявляем массив arr размером N и заполняем его произвольными числами. Затем мы используем цикл for для перебора всех элементов массива и проверки, является ли каждый элемент нечетным (проверяем остаток от деления на 2). Если элемент нечетный, увеличиваем счетчик count на 1. В конце программы выводим значение count - количество нечетных элементов в массиве.