Напечатать в обратном порядке все элементы вещественного массива - PascalABC.NET

Формулировка задачи:

2.Напечатать в обратном порядке все элементы вещественного массива до элемента, номер которого равен значению среднего арифметического MIN и MAX массива. Найдите индекс максимального элемента и вывести все числа от еденицы до этого индекса.

Решение задачи: «Напечатать в обратном порядке все элементы вещественного массива»

Листинг программы

const
  N = 10;
type
  TVector = array[1..N] of Real;
 
procedure GetExtremums(A: TVector; var Min, Max: Integer);
var
  I: Integer;
begin
  Min := 1; Max := 1;
  for I := 2 to N do
  begin
    if A[I]>A[Max] then Max := I;
    if A[I]<A[Min] then Min := I;
  end;
end;
 
var
  Min, Max, I: Integer;
  A: TVector;
begin
  Randomize;
  for I := 1 to N do
  begin
    A[I] := Random(50);
    Write(A[I],' ');
  end;
  WriteLn;
  GetExtremums(A, Min, Max);
  
  for I := N downto (Min+Max) div 2 do
    Write(A[I],' ');
end.

Объяснение кода листинга программы

В данном коде реализована функция GetExtremums, которая находит минимальный и максимальный элементы в массиве. Для этого используется цикл for, который проходит по всем элементам массива, начиная со второго. Если текущий элемент больше максимального, то обновляется значение максимального элемента. Если текущий элемент меньше минимального, то обновляется значение минимального элемента. В основной части кода создается массив A, заполняемый случайными числами от 0 до 49 с помощью функции Random. Затем выводится на экран весь массив. После этого вызывается функция GetExtremums, которая находит минимальный и максимальный элементы массива и сохраняет их в переменных Min и Max. Далее, в цикле for, начиная с последнего элемента массива и до середины массива (т.е. (Min+Max)/2), выводятся на экран элементы массива в обратном порядке.