Question

URGENT PANA AZI PLS!!DAU COROANA!!!PASCAL!!!Să se elaboreze un program care citește de la tastatură datele de următoarea structură:a) Numărul de ordine, numele, prenumele, notele de la examene (6);

b) Numărul de ordine, numele, prenumele, absențe nemotivate, absențe totale.

Din datele citite de afișat la ecran:

11) Lista elevilor care au mai puțin de 40 absențe motivate;

Answer 1

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???