var  A:array[1..50] of integer;
     i,n,m,min:integer;
begin
     Write('Razmer massiva <50 = ');
      Readln(n);
       Writeln; Writeln;
     Writeln('Massiv A:');
      Writeln;
     Randomize;
      for i:=1 to n do
       begin
         A[i]:=Random(20);
          Write(A[i]:4);
       end;
            Writeln; Writeln;
     min:=A[1];
      m:=1;
       for i:=2 to n do
        if A[i]<min
         then
          begin
            min:=A[i];
             m:=1;
          end
         else
          if A[i]=min
           then Inc(m);
     Writeln('Min = ',min);
      Writeln('V massive min.elementov : ',m);
    Readln;
end.