Question

Для одномерного целочисленного массива из 20 элементов решить задачу поиска номера первого нечетного элемента. PASCAL Плесс...

Answer 1

Программа и пример ее выполнения.
Первый пример только для вывода на экран.
Второй пример для дальнейшей обработки массива в программе.

Answer 2

Код на Pascal для решения задачи поиска номера первого нечетного элемента в одномерном целочисленном массиве из 20 элементов:

arduinoCopy code
program FirstOddElement;

var
  arr: array[1..20] of integer;
  i: integer;
  firstOddIndex: integer;

begin
  // Заполнение массива случайными числами
  Randomize;
  for i := 1 to 20 do
    arr[i] := Random(100);

  // Поиск первого нечетного элемента
  firstOddIndex := 0;
  for i := 1 to 20 do
  begin
    if (arr[i] mod 2 = 1) then
    begin
      firstOddIndex := i;
      break;
    end;
  end;

  // Вывод результата
  if (firstOddIndex <> 0) then
    writeln('Номер первого нечетного элемента: ', firstOddIndex)
  else
    writeln('Нечетных элементов в массиве нет');
end.

Программа создает массив из 20 случайных чисел и ищет первый нечетный элемент, перебирая элементы массива по порядку. Если нечетный элемент найден, программа выводит его индекс (номер) на экран. Если нечетных элементов в массиве нет, программа выводит сообщение об этом.