program alumnos;
uses
crt;
const
num = 10;
type
alum = record
nombre : string[80];
cedula : longint;
not1, not2, not3, not4, not5 : real;
end;
var
notas : array[1..num] of alum;
cont : integer;
procedure entra_alumnos;
begin
for cont := 1 to num do
begin
clrscr;
writeln(' **** Entrada Alumnos ****');
writeln;
write(' Entre Nombre : ');
readln(notas[cont].nombre);
write(' Entre N. Cedula : ');
readln(notas[cont].cedula);
write(' Entre Nota 1 : ');
readln(notas[cont].not1);
write(' Entre Nota 2 : ');
readln(notas[cont].not2);
write(' Entre Nota 3 : ');
readln(notas[cont].not3);
write(' Entre Nota 4 : ');
readln(notas[cont].not4);
write(' Entre Nota 5 : ');
readln(notas[cont].not5);
end;
end;
function nota_n_6 : boolean;
begin
if notas[6].nombre <> ' ' then
begin
nota_n_6 := true;
end
else
nota_n_6 := false;
end;
procedure notas_alumno_6;
begin
writeln(' **** Presentacion Alumno N. 6 ****');
writeln;
writeln(' Nombre = ',notas[6].nombre);
writeln(' Cedula = ',notas[6].cedula);
writeln(' Nota N.1 = 'notas[6].not1:0:2);
writeln(' Nota N.2 = 'notas[6].not2:0:2);
writeln(' Nota N.3 = 'notas[6].not3:0:2);
writeln(' Nota N.4 = 'notas[6].not4:0:2);
writeln(' Nota N.5 = 'notas[6].not5:0:2);
end;
begin
entra_alumnos;
clrscr;
if nota_n_6 = true then
notas_alumno_6;
else
writeln(' Sin Datos El Alumno N. 6');
writeln;
writeln(' Pulse Una Tecla');
reaskey;
end.