Ответ:

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

   n,i,k,j:integer;

begin

write('Введите количество чисел: '); readln(n);

for i:=1 to n do begin

write('от',i,'до: '); readln(a[i]);

end;

k:=a[1];

for i:=2 to n do if a[i]<k then k:=a[i];

for i:=1 to n do if a[i]=k then j:=j+1;

writeln('наибольшая последовательность минимума = ',j);

end.