Составить программу на Паскале. В массиве хранится информация о стоимости каждой из M книг. Определить количество самых дешевых книг (с одинаковой минимальной ценой)

Var mas:array of integer; min, kol, j, i, n:integer;

begin

Randomize; min:=0; kol:=0;

write ('n:') ;

readln (n) ;

setlength (mas, length (mas) + n) ; / / / динамический массив вы можете заменить на статический

For i: = 0 to high (mas) do

mas[i]:=Random (50) ;

min:=mas[0];

for j:=0 to high (mas) do//ищем минимальную ценну

if min>mas[j] then

min:=mas[j];

For i: = 0 to high (mas) do

if min=mas[i] then//ищем количество книг с минимальной ценой

inc (kol) ;

write ('kolvo min ', kol) ;

readln;

end.