var

a:array[1..100] of integer;

x,i,n,min:integer;

begin

readln(n);

x:=1;

read(a[1]);

min:=a[1];

for I:=2 to n do

begin

read(a[i]);

if a[i]<min then  

begin

min:=a[i];

x:=1

end;

if a[i]=min then x:=x+1;

end;

writeln(x)

end.

Комментарий: n- количество элементов массива, вводится с клавиатуры в диапазоне от 1 до 100