Question

Определить индексы и значения наибольших и наименьших по модулю элементов одномерного массива, нужно написать программу на паскале)

Answer 1

PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!

Массив индексирован ОТ НУЛЯ !!!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var (imin,imax):=(a.IndexMin,a.IndexMax);
  Writeln('Индекс минимального элемента- ',imin,', максимального- ',imax);
  Writeln('Максимум и минимум равны ',a[imax],', ',a[imin])
end.

Пример
n= 20
45 5 -3 16 -37 24 -2 2 49 25 0 -37 17 26 -38 7 -11 21 3 -7
Индекс минимального элемента- 14, максимального- 8
Максимум и минимум равны 49, -38

Начиная с данной сборки PascalABC.NET вывод можно оформлять и так:

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var (imin,imax):=(a.IndexMin,a.IndexMax);
  Writeln($'Min a[{imin}]={a[imin]}, max a[{imax}]={a[imax]}')
end.

Пример
n= 20
40 -13 -7 7 45 -28 3 -40 37 45 10 47 -38 -39 25 -46 45 -44 42 44
Min a[15]=-46, max a[11]=47

Answer 2

Программа на Паскале для определения индексов и значений наибольших и наименьших по модулю элементов одномерного массива может выглядеть следующим образом:

program MaxMinModulus;

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

var
  arr: array[1..N] of integer;
  i, maxIndex, minIndex, maxMod, minMod: integer;

begin
  // заполнение массива случайными числами
  randomize;
  for i := 1 to N do
  begin
    arr[i] := random(100) - 50; // случайное число от -50 до 49
    writeln('arr[', i, '] = ', arr[i]);
  end;

// поиск наибольшего и наименьшего по модулю элементов
  maxMod := abs(arr[1]);
  minMod := abs(arr[1]);
  maxIndex := 1;
  minIndex := 1;
  for i := 2 to N do
  begin
    if abs(arr[i]) > maxMod then
    begin
      maxMod := abs(arr[i]);
      maxIndex := i;
    end;
    if abs(arr[i]) < minMod then
    begin
      minMod := abs(arr[i]);
      minIndex := i;
    end;
  end;

// вывод результатов
  writeln('Наибольший по модулю элемент: arr[', maxIndex, '] = ', arr[maxIndex]);
  writeln('Наименьший по модулю элемент: arr[', minIndex, '] = ', arr[minIndex]);
end.

Эта программа создает массив из 10 случайных целых чисел от -50 до 49, затем находит наибольший и наименьший по модулю элементы в этом массиве и выводит их индексы и значения.