uses crt;
const
TOPE = 150;
type
alumnos = record
cedula:integer;
nombre:string;
materia:string;
nota:char;
end;
var
alum:array[1..TOPE] of alumnos;
i:byte;
pasa,fracasaron:integer;
begin
clrscr;
pasa:=0;
fracasaron:=0;
for i:=1 to TOPE do begin
with alum[i] do begin
write('Cedula del alumno: ');
readln(cedula);
write('Nombre del alumno: ');
readln(nombre);
write('Materia que cursa: ');
readln(materia);
write('Nota final: ');
readln(nota);
end;
end;
writeln;
{mostrar registros}
for i:=1 to TOPE do begin
with alum[i] do begin
writeln('Cedula del estudiante: ',cedula);
writeln('Nombre del alumno: ',nombre);
writeln('Materia que cursa: ',materia);
writeln('Nota final: ',nota);
end;
writeln;
end;
writeln;
for i:=1 to TOPE do begin
with alum[i] do begin
if (nota <> 'a') and (nota <> 'b') and (nota <> 'c') then
inc(fracasaron);
if (nota = 'a') or (nota = 'b') or (nota = 'c') then
inc(pasa);
end;
end;
writeln('Total de alumnos que fracasaron: ',fracasaron);
writeln('Total de alumnos que pasaron: ',pasa);
end.