Question

В массиве чисел А1,А2.....Аn найти минимальное по абсолютной величине число и его номер. Как записать в Паскале?

Answer 1

Program zadacha;
varA: array[1..10000] of integer;i,n,min,k: integer;
beginmin:=0;writeln('vvedite n');readln(n);for i:=1 to n do beginA[i]:=random(10000)-5000;write(A[i]:6);end;
min:=abs(A[1]);k:=1;for i:=1 to n doif abs(A[i])<min then beginmin:=A[i];k:=i;end;writeln();writeln('min=',min, ' N ', k);
end.

Answer 2

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

program FindMinAbsoluteValue;

var
  A: array of Integer;
  n, i, minAbsValue, minAbsValueIndex: Integer;

begin
  // Ввод размера массива
  Write('Введите размер массива: ');
  ReadLn(n);

// Выделение памяти под массив
  SetLength(A, n);

// Ввод элементов массива
  WriteLn('Введите элементы массива:');
  for i := 0 to n - 1 do
  begin
    Write('A[', i + 1, ']: ');
    ReadLn(A[i]);
  end;

// Инициализация минимального значения и его индекса
  minAbsValue := Abs(A[0]);
  minAbsValueIndex := 1;

// Поиск минимального по абсолютной величине числа и его номера
  for i := 1 to n - 1 do
  begin
    if Abs(A[i]) < minAbsValue then
    begin
      minAbsValue := Abs(A[i]);
      minAbsValueIndex := i + 1; // увеличиваем на 1, так как индексы начинаются с 1
    end;
  end;

// Вывод результатов
  WriteLn('Минимальное по абсолютной величине число: ', A[minAbsValueIndex - 1]);
  WriteLn('Индекс минимального по абсолютной величине числа: ', minAbsValueIndex);

end.

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