Calculo de la Moda

Descrição

Esconder código-fonte

Program Moda1;
Uses Crt;
Var
m,a,b:Real;
fmx,n,c,f:Integer;
opc:Char;
Begin
Repeat
Begin{*}
clrscr;
Writeln('Ingrese el N£mero de Elementos ');
Readln(n);
Writeln('Ingrese el Elemento N£mero 1');
Readln(b);
m:=b;
f:=1;
c:=1;
fmx:=1;
While c<n do
  Begin{**}
  c:=c+1;
  Writeln('Ingrese el Elemto N£mero ',c);
  Readln(a);
  If (a<>b) or (c=n) Then
    Begin{***}
    If a=b Then f:=f+1;
    If fmx<=f Then
      Begin{****}
      If fmx<>f Then
        Begin{* *}
        fmx:=f;
        m:=b;
        End{* *}
      Else If m<b Then m:=b;
      End;{****}
    f:=1;
    b:=a;
    End{***}
  Else f:=f+1;
  End;{**}
Writeln('La Moda es: ',m);
Writeln('La Frecuencia es: ',fmx);
Writeln('¨Desea Realizar Otra Operaci¢n (S/N)?');
opc:=Readkey;
End;{*}
Until (opc='n')or(opc='N');
End.