Question

De scris un program : De afişat informaţia despre studenţii care au bursă. Media>8

Answer 1

program Bursieriii;

type Student=record

       NumePrenume: string;

       NotaMedie:real;

    end;

    ListaStudenti=array[1..30] of Student;

var  n, i,contor,gasit: integer;

    LS: ListaStudenti;

BEGIN

 write('introdu nr. de studenti n='); read(n);

 writeln('Introdu date despre ',n,' studenti:');

 for i:=1 to n do

   begin

     writeln(' Datele studentului ',i);

     write('Nume Prenume: '); read(LS[i].NumePrenume);

     write(' nota medie: '); read(LS[i].NotaMedie);

  end;

  gasit:=0; contor:=0;

  writeln('Lista studentilor cu media > 8 :');

  for i:=1 to n do

     begin

        if LS[i].NotaMedie>8 then

          begin

           gasit:=1; inc(contor);

           writeln(contor,'. ', LS[i].NumePrenume); end;

     end;

  if gasit=0 then writeln('NU EXISTA...');

END.