Saber el numero minimo, el maximo y cuantas veces se repiten

[JoRgE-1987]

Bueno, un amigo que esta cursando la universidad, le pidieron la solucion al siguiente probelma, obviamente, es para novatos, pero quizas a alguien le sirva.

Código

//Jorge Abreu
Program MinMax;
Var
  Min, Max, N, I, RMax, Rmin, Num : Integer;
 
Begin
Min := 9999;
Max := -9999;
WriteLn('¿Cuantos numeros desea ingresar?');
ReadLn(N);
For I:=1 To N Do
  Begin
    WriteLn('Ingrese el ', I, ' numero.');
    ReadLn(Num);
    If Num > Max Then
      Begin
        Max := Num;
        RMax := 0;
      End;
    If Num < Min Then
        Begin
          Min := Num;
          RMin := 0;
        End;
    If Num = Max Then RMax := (RMax + 1);
    If Num = Min Then RMin := (RMin + 1);
  End;
 
WriteLn(&#39;El numero Mayor fue: &#39;,Max);
WriteLn(&#39;Se repitio &#39;, RMax, &#39; veces.&#39;);
WriteLn(&#39;------------------------------&#39;);
WriteLn(&#39;El numero Menor fue: &#39;, Min);
WriteLn(&#39;Se repitio &#39;, RMin, &#39; veces&#39;);
ReadLn;
End.
 

Espero que les sirva de algo.

Saludos :D