Элемент массива с наименьшим значением и его номер - Pascal

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

Найти элемент с наименьшим значение и его номер среди положительных элементов массива. Определить сколько раз элемент с этим значением входит в массив.

Решение задачи: «Элемент массива с наименьшим значением и его номер»

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

uses crt;
var
a:array[1..100]of integer;
i,n,min,kol,pos:integer;
begin clrscr;
write('n=');
read(n);
for i:=1 to n do
 begin
  write('a[',i,']=');
  read(a[i]);
 end;
writeln;
for i:=1 to n do
write(a[i],'  ');
writeln;
min:=100;
for i:=1 to n do
if (a[i]>0)and (a[i]<min) then
 begin
  min:=a[i];
  pos:=i;
 end;
writeln('min=',min,' in position=[',pos,']');
kol:=0;
for i:=1 to n do
if a[i]=min then inc(kol);
writeln('min element=',min,' vstrechaetsya ',kol,' raz');
readkey;
end.

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

Объявлены переменные:
- a - массив из 100 целых чисел;
- i, n, min, kol, pos - целочисленные переменные для выполнения задачи.
Задается значение переменной n с помощью функции read. Значение n определяет количество элементов в массиве a, которые будут введены пользователем.
В цикле for i := 1 to n вводится значение каждого элемента массива a с помощью функции read.
Выводится содержимое массива a.
Инициализируется переменная min значением 100, которая будет использоваться для хранения минимального значения элемента массива.
В цикле for i := 1 to n проверяется, является ли текущий элемент массива a меньше значения переменной min и больше нуля. Если это так, то значение переменной min обновляется, а переменная pos сохраняет номер текущего элемента.
Выводится сообщение с минимальным значением элемента массива и его позицией.
Инициализируется переменная kol значением 0, которая будет использоваться для подсчета количества одинаковых минимальных значений в массиве.
В цикле for i := 1 to n проверяется, равно ли значение элемента массива a значению переменной min. Если это так, то переменная kol увеличивается на 1.
Выводится сообщение с минимальным значением элемента массива и количеством его вхождений.
Программа ожидает нажатия клавиши с помощью функции readkey.
Код завершается.