{Esto valdrá}
program notas;
uses
crt;
type
alumno = record
nombre : string[80];
cedula : longint;
notas : array[1..5] of real;
end;
var
losalumnos : array[1..30] of alumno;
cont : integer;
tech : char;
procedure entradaalumnos(cu : integer);
var
i : integer;
begin
with losalumnos[cu] do
begin
writeln(' ***** Entradas Alumnos *****'); writeln;
write(' Nombre : '); readln(nombre);
write(' Cedula : '); readln(cedula);
for i := 1 to 5 do
begin
write(' Nota N. ',i,' : '); readln(notas[i]);
end;
end;
cont := cont + 1;
if cont > 30 then
cont := 30;
end;
function menor_nota : real;
var
t, co : integer;
nt : real;
min : array[1..30] of real;
begin
menor_nota := 0;
for co := 1 to cont - 1 do
begin
nt := 0.0;
for t := 1 to 5 do
begin
nt := nt + losalumnos[co].notas[t];
end;
min[co] := nt;
end;
nt := 100000;
for co := 1 to cont - 1 do
if min[co] < nt then
nt := min[co];
menor_nota := nt / 5;
end;
begin
clrscr;
cont := 1;
repeat
clrscr;
entradaalumnos(cont);
writeln;
writeln(' Desea Entrar Mas Numeros [S/N]'); repeat
tech := upcase(readkey);
until tech in['S','N'];
until tech = 'N';
writeln;
writeln(' La Nota Menor Es : ',menor_nota:0:2); readkey;
end.
Crear cuenta