👤

Se considera tabloul A[1..n] de numere reale,n<=100.Sa se scrie un program care numara de cite ori figureaza in acest tablou elementul minim.
PASCAL


Răspuns :

var

 i,n,min,nr,x:integer;
 
begin

 read(n);
 
 min:=1000000;
 
 for i:=1 to n do
  begin
   read(x);
   if(x<min) then
    begin
     min:=x;
     nr:=1; 
    end
   else if(x=min) then
    nr+=1;
  end;
  
 writeln(nr); 

end.