Question

Дан массив A размерностью N (размерность вводит пользователь). Массив заполнен случайными числами от -15 до 15. Найти минимальный элемент массива. Вывести на экран все значения, равные минимальному и их индексы Паскаль

Answer 1

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -15, 15);

 a.Println;

 var i := a.IndexMin;

 var m := a[i];

 Println('Минимум равен', m);

 Print('Номера минимальных элементов:');

 a.Indices(p -> p = m).Select(p -> p + 1).Println

end.

Answer 2

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

pascalCopy code
program FindMinElement;

const
  MAX_SIZE = 100;

var
  A: array[1..MAX_SIZE] of Integer;
  N, i, minElement: Integer;

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

  // Заполнение массива случайными числами от -15 до 15
  Randomize;
  for i := 1 to N do
    A[i] := Random(31) - 15;

  // Нахождение минимального элемента
  minElement := A[1];
  for i := 2 to N do
  begin
    if A[i] < minElement then
      minElement := A[i];
  end;

  // Вывод значений, равных минимальному, и их индексов
  WriteLn('Минимальный элемент: ', minElement);
  WriteLn('Индексы элементов, равных минимальному:');
  for i := 1 to N do
  begin
    if A[i] = minElement then
      WriteLn('Индекс: ', i, ', Значение: ', A[i]);
  end;
end.

Программа сначала запрашивает у пользователя размерность массива N, затем заполняет массив случайными числами от -15 до 15. Затем она находит минимальный элемент массива и выводит его значение. После этого программа выводит индексы элементов, равных минимальному, и их значения.