Question

Помогите нужно сделать программу на языке программирования PascalABC.NET В массиве С из 25 целых элементов из диапазона [-7;7] вывести на экран номера тех элементов, которые находятся после минимального элемента.

Answer 1

Ответ:

--- PascalABC.NET 3.6.2 ---

begin

 var C := ArrRandom(25, -7, 7);

 C.Println;

 var mIndex := C.IndexMin;

 C.Indices.Where(p -> p > mIndex).Select(p -> p + 1).Println;

end.

p.s Учитывается индекс первого вхождения минимального элемента. Последующие вхождения минимального элемента будут включены

Answer 2

Конечно, вот пример программы на языке PascalABC.NET, который решает вашу задачу:

pascalCopy code
program FindElementsAfterMin;

const
  SIZE = 25;
  MIN_VALUE = -7;
  MAX_VALUE = 7;

var
  C: array[1..SIZE] of Integer;
  i, minIndex: Integer;

begin
  // Заполняем массив C случайными числами из диапазона [-7; 7]
  Randomize;
  for i := 1 to SIZE do
    C[i] := Random(MAX_VALUE - MIN_VALUE + 1) + MIN_VALUE;

  // Находим индекс минимального элемента
  minIndex := 1;
  for i := 2 to SIZE do
  begin
    if C[i] < C[minIndex] then
      minIndex := i;
  end;

  // Выводим номера элементов, которые находятся после минимального элемента
  Write('Номера элементов после минимального элемента: ');
  for i := minIndex + 1 to SIZE do
    Write(i, ' ');

  Readln;
end.

В данной программе используется массив C из 25 целых элементов, заполненных случайными числами из диапазона [-7;7]. Затем происходит поиск минимального элемента и выводятся номера элементов, которые находятся после минимального элемента.

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