Por favor ayuda
Hola amigo necesito tu ayuda
Soy estudiante de 10 grado y necesito que meayudes:
Necesito un programa que me escriba el mayor y el menor numero de N(variable) números que el usuario digite.
(Lo necesito para antes del Viernes 7 de Marzo)
Gracias
Soy estudiante de 10 grado y necesito que meayudes:
Necesito un programa que me escriba el mayor y el menor numero de N(variable) números que el usuario digite.
(Lo necesito para antes del Viernes 7 de Marzo)
Gracias
1 respuesta
Respuesta de korgn264
1
program m_M;
uses crt;
var
num, ma, me: byte;
band: booleand;
begin
band:= true;
ma:=0; me:=0;
repeat
clrscr;
write('Dame un numero: '); readln(num);
if band then begin ma:=num; me:=0; end
else
begin
if num >= ma then ma:= num else if num <= me then me:= num;
end;
write('Otro numero (s/n)?' );
until upcase(readkey) = 'N';
clrscr;
write('El numero mayor escrito es ', ma, ' y el menor es ', me);
readkey;
end.
uses crt;
var
num, ma, me: byte;
band: booleand;
begin
band:= true;
ma:=0; me:=0;
repeat
clrscr;
write('Dame un numero: '); readln(num);
if band then begin ma:=num; me:=0; end
else
begin
if num >= ma then ma:= num else if num <= me then me:= num;
end;
write('Otro numero (s/n)?' );
until upcase(readkey) = 'N';
clrscr;
write('El numero mayor escrito es ', ma, ' y el menor es ', me);
readkey;
end.
