Описать процедуру NMinmax(A, N, N Minn, N Max) находящую номера минимального и максимального элемента массива - PascalABC.NET

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

Описать процедуру NMinmax(A, N, N Minn, N Max) находящую номера минимального и максимального элемента массива A из N вещественных чисел. Решите пожалуйста.

Решение задачи: «Описать процедуру NMinmax(A, N, N Minn, N Max) находящую номера минимального и максимального элемента массива»

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

program ex1;
uses crt;
type vector=array[1..100]of real;
var n,Nmin,Nmax:integer;
    a:vector;
   
procedure RandomMass(var a:vector; var n:integer);
var i:integer;
begin
write('Введите кол-во элементов в массиве: ');
readln(n);
for i:=1 to n do
  a[i]:=random(11)-5
end;
 
procedure PrintMass(a:vector; n:integer);
var i:integer;
begin
for i:=1 to n do
write(a[i],' ');
writeln();
end; 
 
procedure NMinmax(a:vector; n:integer;var Nmin,Nmax:integer);
var i:integer;
    max,min:real;
begin
max:=-1*maxreal;min:=maxreal;
for i:=1 to n do
begin
if (a[i]<min) then begin min:=a[i];Nmin:=i;end;
if (a[i]>max) then begin max:=a[i];Nmax:=i;end;
end;
writeln('номер минимального: ',Nmin);
writeln('номер максимального: ',Nmax);
end;
 
begin
RandomMass(a,n);
PrintMass(a,n);
NMinmax(a,n,Nmin,Nmax);
end.

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

Объявлены переменные:
- n, Nmin, Nmax - целочисленные переменные для хранения количества элементов массива и номеров минимального и максимального элементов соответственно;
- a - вектор, содержащий массив;
- i - целочисленная переменная для хранения индексов элементов массива в процедуре NMinmax.
В процедуре RandomMass происходит:
- вывод сообщения с просьбой ввести количество элементов в массиве;
- чтение количества элементов из диалога с пользователем;
- заполнение массива случайными числами от -5 до 5.
В процедуре PrintMass происходит:
- вывод элементов массива через пробел.
В процедуре NMinmax происходит:
- инициализация переменных min и max значениями, которые гарантируют нахождение минимум и максимума в первом проходе цикла;
- проход по всем элементам массива и сравнение их с текущими значениями min и max, обновление этих значений при необходимости и обновление соответствующих переменных Nmin и Nmax;
- вывод номеров минимального и максимального элементов.