Răspuns:
Program Tabel absențe
Type elev= record
Nume : String;
Prenume : String;
Nr absențe : integer
end;
ListaElev = array [1..40] of Elev ;
var E: Elev ;
Le: Lista elevi;
n:1..40;
i,j : intreg
begin
write ('n')readln(n)
for i:=1 to n do
begin
writeln('Dați datele elevului ', i);
write(' Numele : ' ); readnl(Le[i]Nume);
write('Prenumele ' );readnl(Le[i]Prenume);
wirite(' Nr absențe ');
readnl(Le[i]Neabsente);
end;
writeln ( Lista elevilor cu Nr de absențe <60');
j:=0
for i:=1 to n d
begin
if Le[i].NrAbsente >60 then
begin
j:=j+1
writeln (j,'. '.Le[i]Nume ,' ,' Le[i]Prenume);
readln;
end
COROANA???
