Program TabelAbsene;
type Elev = record
Nume : string;
Prenume : string;
NrAbsente : integer;
end;
ListaElev = array[1..40] of Elev;
var E : Elev;
LE : ListaElev;
n : 1..40;
i, j : integer;
begin
write('n='); readln(n);
for i:=1 to n do
begin
writeln('Dati datele elevului ', i);
write('Numele: '); readln(LE[i].Nume);
write('Prenumele: '); readln(LE[i].Prenume);
write('Nr de absente: '); readln(LE[i].NrAbsente);
end;
writeln('Lista elevilor cu nr de absente > 60');
j:=0;
for i:=1 to n do
begin
if LE[i].NrAbsente > 60 then
begin
j:=j+1;
writeln(j,'. ',LE[i].Nume,' ',LE[i].Prenume);
readln;
end.
