Question

Ввести массив чисел определить определить номер максимального отрицательного нечетного элемента массива ПАСКАЛЬ СРОЧНО

Answer 1

var

 a: array of integer;  

 mi,i,n:integer;

begin

 readln(n);

 setlength(a,n);

 readln(a[0]);

 mi:=0;

 for i:=1 to n-1 do

   begin

     readln(a[i]);

     if (a[i]<a[mi]) and (abs(a[i]) mod 2 = 1) then

       mi:=i;

   end;

 if abs(a[mi]) mod 2 <> 1 then

   writeln('Error')

     else

       writeln('№',mi+1,'  ',a[mi]);

end.

Answer 2

Вот пример программы на Pascal, которая вводит массив чисел и определяет номер максимального отрицательного нечетного элемента:

pascalCopy code
program MaxNegativeOddElement;

const
  MaxSize = 100; // Максимальный размер массива

var
  arr: array[1..MaxSize] of integer;
  n, i, maxNegOdd, maxNegOddIndex: integer;

begin
  writeln('Введите размер массива (не более ', MaxSize, '): ');
  readln(n);

  if (n <= 0) or (n > MaxSize) then
  begin
    writeln('Недопустимый размер массива.');
    exit;
  end;

  writeln('Введите элементы массива: ');

  maxNegOdd := -1; // Инициализируем максимальное отрицательное нечетное значение
  maxNegOddIndex := -1; // Инициализируем индекс максимального отрицательного нечетного элемента

  for i := 1 to n do
  begin
    readln(arr[i]);

    if (arr[i] < 0) and (arr[i] mod 2 <> 0) then // Проверяем, что элемент отрицателен и нечетен
    begin
      if (maxNegOdd = -1) or (arr[i] > maxNegOdd) then
      begin
        maxNegOdd := arr[i];
        maxNegOddIndex := i;
      end;
    end;
  end;

  if maxNegOddIndex <> -1 then
    writeln('Максимальный отрицательный нечетный элемент находится в позиции ', maxNegOddIndex)
  else
    writeln('В массиве нет отрицательных нечетных элементов.');

  readln;
end.

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