Question

De elaborat un program pascal care citeste de la tastatura datele de urmatoraea structura : lista elevilor care au mai mult de 60 de absente motivate.(Turbo Pascal)va rog urgent!!!!

Answer 1

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.