|
Se puede hacer de muchas formas, cuando estaba dando pascal esta manera era mi preferida por que es facil de entender. Bueno es algo asi:
program blankcorrea;
uses wincrt;
Var
valor:integer;
n:integer;
max:integer;
min:integer;
res:char;
begin
max:=0;
min:=0;
Repeat
read valor;
if (valor > max) then
max:=valor;
if (valor < min) then
min:=valor;
sum:=sum+valor;
writeln "Desea continuar con el programa:(S/N)";
readln(res);
Until res="n" or res="N";
writeln "El mayor numero ingresado es:";
writeln max;
writeln "El menor numero ingresado es:";
writeln min;
writeln "La suma da:";
writeln sum;
end.
Espero que te sirva..........
|
