Question

Заполните массив случайными числами и найдите 2 МИНИМАЛЬНЫХ элемента массива и их номера. Паскаль

Answer 1

//PascalABC.NET 3.1 сборка 1200
begin
  //  создаем массив и заполняем случайными числами от -50 до 50
  var a := ArrRandom(ReadInteger('n='), -50, 50);
  //выводим массив  
  a.Println;
  //находим индекс максимального элемента  
  var max := a.IndexMax();
  // выводим значение макс. элемента и его индекса
  writeln('Max = ', a[max], ' Index = ', max);
  // заменяем максимальный элемент минимумом
  a[max] := -50;
  //находим индекс второго максимального элемента (на данный момент уже первого)  
  max := a.IndexMax;
  // выводим значение элемента и его индекса
  writeln('Max = ', a[max], ' Index = ', max);
end.

Answer 2

К сожалению, я не могу предоставить прямого кода на языке Pascal, так как мой ответ строится на текстовом описании. Однако я могу предоставить алгоритм, который вы можете реализовать на Pascal.

1. Заполните массив случайными числами. 2. Инициализируйте две переменные для хранения минимальных значений и их индексов. Начальные значения можно установить на бесконечность (если массив содержит только неотрицательные числа) или на максимальное значение типа данных массива. 3. Пройдитесь по массиву и для каждого элемента сравните его с текущими минимальными значениями. Если значение меньше одного из минимальных, обновите соответствующую переменную. 4. Запомните индексы минимальных элементов. 5. Выведите результат.

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

program FindMinimals;

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

var
  arr: array[1..N] of Integer;
  min1, min2, index1, index2, i: Integer;

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

// Инициализация переменных
  min1 := MaxInt;
  min2 := MaxInt;
  index1 := 0;
  index2 := 0;

// Поиск двух минимальных элементов и их индексов
  for i := 1 to N do
  begin
    if arr[i] < min1 then
    begin
      min2 := min1;
      index2 := index1;
      min1 := arr[i];
      index1 := i;
    end
    else if arr[i] < min2 then
    begin
      min2 := arr[i];
      index2 := i;
    end;
  end;

// Вывод результатов
  writeln('Минимальный элемент: ', min1, ' Индекс: ', index1);
  writeln('Второй минимальный элемент: ', min2, ' Индекс: ', index2);

end.

Обратите внимание, что код предоставлен в качестве примера, и вам, возможно, придется его адаптировать под конкретные требования вашей задачи.