Question

Написать код на Паскале для решения задачи. Дан массив из 15 целых чисел. В заданном массиве найти минимальный нечетный элемент. Вывести на экран его значение и позицию в массиве. Помогите, пожалуйста.

Answer 1

Ответ:

{Free Pascal Compiler version 3.0.4+dfsg-23 [2019/11/25] for x86_64}

{Copyright (c) 1993-2017 by Florian Klaempfl and others}

{Target OS: Linux for x86-64}

program test;

Uses Math;

   

   const N = 15;

   

   var

       A : array[1..N] of integer;

       i, mx, k : integer;

   

begin

   Randomize;

   {Генерация и печать массива}

   for i := 1 to N do begin

       A[i] := Random(50);

       write(A[i], ' ');

       if A[i] mod 2 = 1 then mx := A[i]

       end;

   writeln;

   

   

   for i := 1 to N do

       if A[i] mod 2 = 1 then

           if A[i] < mx then begin

               mx := A[i];

               k := i

               end;

   writeln('Число - ', mx, ', позиция - ', k);

end.

Результат выполнения программы:

Answer 2

Конечно, вот пример кода на Pascal, который решает указанную задачу:

pascalCopy code
program MinOddElement;
var
  arr: array[1..15] of integer;
  minOddElement, minOddElementPosition, i: integer;
begin
  writeln('Введите 15 целых чисел:');
  
  // Ввод элементов массива
  for i := 1 to 15 do
  begin
    write('Элемент ', i, ': ');
    readln(arr[i]);
  end;
  
  // Инициализация переменных
  minOddElement := MaxInt; // Используем MaxInt для начального значения
  minOddElementPosition := -1; // Используем -1 для начальной позиции
  
  // Поиск минимального нечетного элемента и его позиции
  for i := 1 to 15 do
  begin
    if (arr[i] mod 2 = 1) and (arr[i] < minOddElement) then
    begin
      minOddElement := arr[i];
      minOddElementPosition := i;
    end;
  end;
  
  // Вывод результатов
  writeln('Минимальный нечетный элемент: ', minOddElement);
  writeln('Позиция в массиве: ', minOddElementPosition);
end.

Этот код просит пользователя ввести 15 целых чисел, сохраняет их в массиве и затем находит минимальный нечетный элемент в массиве и выводит его значение и позицию.