Найти минимальное значение элемента и его порядковый номер в массиве - Pascal ABC

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

Помогите, пожалуйста. напишите программу, чтобы найти минимальное значение элемента и его порядковый номер в массиве из 50 случайных целых чисел в диапазоне от -100 до 100. сделайте контрольный вывод получившегося массива в строку.

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

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

const n=50;
var 
a:array[1..n] of integer;
i,min,k:integer;
begin
 writeln('Массив');
 for i:=1 to n do begin 
 a[i]:=random(200)-100;
 write(a[i]:3);
 end;
 writeln;
 for i:=1 to n do begin
   if (a[i]<min) and (a[i]<k) then begin
   min:=a[i];
   k:=i;
   end;
   end;
   writeln('Минимальный элемент массива = ',min);
   writeln('Порядковый номер элемента = ',k);
end.

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

Данный код написан на языке Pascal ABC и выполняет следующие действия:

Объявляет переменные: n, a, i, min, k, которые будут использоваться для работы с массивом и поиска минимального значения.
Задаёт начальное значение для переменной min равным 200, а для k равным 1.
Выводит сообщение «Массив» и заполняет массив a случайными числами от -100 до 100.
Затем выводит сообщение «Минимальный элемент массива = », после чего выводит значение переменной min, которое является минимальным значением в массиве.
Далее выводит сообщение «Порядковый номер элемента = », после чего выводит значение переменной k, которая содержит порядковый номер элемента с минимальным значением.
Конец программы. Таким образом, данный код позволяет найти минимальное значение элемента и его порядковый номер в заданном массиве.