Esto es el que llevo del menú
program menu;
uses
wincrt;
const capacidad=100;
var
salida: boolean;
opc , Total, contador, i : integer;
Num, media : real;
datos: array [1..capacidad] of integer;
n,cantidad: integer;
procedure Promedio;
begin
clrscr;
writeln('Numeros de examenes a promediar: ');
readln (Total);
media:=0;
For contador:=1 to Total do
Begin
Write('Examen: ',contador,' : ');
Readln (Num);
media := media + Num / Total;
end;
Writeln('El Promedio es: ', media:9:3);
writeln('');
end;
procedure Valor_absoluto;
begin
cantidad:=0;
repeat
if cantidad >= capacidad then
writeln('No cabe mas datos')
else
begin
cantidad:=cantidad+1;
clrscr;
write('Calcular el valor absoluto');
writeln('');
write('Introdusca el Numero',cantidad,' (999 para salir): ');
readln(datos[cantidad]);
end;
until datos [cantidad]=999;
write ('el valor absoluto es; ');
n:= 1;
while datos [n] <> 999 do
begin
write(abs (datos [n]), ' ');
inc(n);
end;
writeLn;
end;
procedure MenuPrincipal;
begin
gotoxy(33,2); writeln('MENU PRINCIPAL');
gotoxy(21,5); writeln('1.- Promedio.');
gotoxy(21,7); writeln('2.- Valor_absoluto.');
gotoxy(21,13); writeln('3.- Salir.');
end;
begin
salida:= false;
repeat
clrscr;
MenuPrincipal;
gotoxy(40,15); write('Selecione el Numero: ');
readln(opc);
case opc of
1: Promedio;
2: Valor_absoluto;
3: salida:= true;
end;
until (salida=true);
end.
program menu;
uses crt;
const capacidad=100;
var
salida: boolean;
opc , Total, contador: integer;
Num, media : real;
datos: array [1..capacidad] of integer;
n,cantidad: integer;
procedure Promedio;
begin
clrscr;
writeln('Numeros de examenes a promediar: ');
readln (Total);
media:=0;
For contador:=1 to Total do
Begin
Write('Examen: ',contador,' : ');
Readln (Num);
media := media + Num / Total;
end;
Writeln('El Promedio es: ', media:9:3);
readkey;
end;
procedure Valor_absoluto;
begin
cantidad:=0;
repeat
if cantidad >= capacidad then
writeln('No cabe mas datos')
else
begin
cantidad:=cantidad+1;
clrscr;
write('Calcular el valor absoluto');
writeln('');
write('Introduzca el Numero',cantidad,' (999 para salir): ');
readln(datos[cantidad]);
end;
until datos [cantidad]=999;
write ('el valor absoluto es; ');
n:= 1;
while datos [n] <> 999 do
begin
write(abs (datos [n]), ' ');
inc(n);
end;
readkey;
end;
procedure MenuPrincipal;
begin
gotoxy(33,2); writeln('MENU PRINCIPAL');
gotoxy(21,5); writeln('1.- Promedio.');
gotoxy(21,7); writeln('2.- Valor_absoluto.');
gotoxy(21,9); writeln('3.- Salir.');
end;
begin
salida:= false;
repeat
clrscr;
MenuPrincipal;
gotoxy(40,15); write('Selecione el Numero: ');
readln(opc);
case opc of
1: Promedio;
2: Valor_absoluto;
3: salida:= true;
end;
until (salida=true);
end.