Hola, no sé que lenguaje de progración es ese pero por ejm en Pascal sería:
Program Mayor_Menor;
Var
Mayor,Menor:Word;
I:Byte;
Begin
Mayor := 0;
Menor = 65534; {El tipo Word en Pascal llega hasta 65535}
For I:=1 to N Do
Begin
Write('Indique el valor del número', I);
Readln (Num);
If (Num>Mayor) Then
Begin
Mayor := Num;
End;
If (Num<Menor) Then
Begin
Menor := Num;
End;
End;
Writeln('El mayor es:', Mayor);
Writeln('El menor es:', Menor);
End.
OJO:
Fijate que la parte de la comparación:
Tu lo tienes así:
If (Num>Mayor) then
Mayor = Num;
else
if (Num<Menor) then
Menor = Num;
end if
end if
Y yo así
If (Num>Mayor) Then
Begin
Mayor := Num;
End;
If (Num<Menor) Then
Begin
Menor := Num;
End;
Es decir, no uso un SINO (else) en el medio, descubre el porqué (ya que es muy importante que lo sepas y que existe una diferencia entre una forma y otra)
Saludos
