Scrieti un program pascal.Urgent Dau coroana!!
Răspunsuri la întrebare
program GrupaElevi;
type TabNote=array[1..6]of integer;
elev = record
nrord:integer;
nume:string[15];
prenume:string[15];
note: TabNote;
media: real;
end;
ListaElevi= array[1..30]of elev;
var n, i, j:integer;
LE: ListaElevi;
gasit:boolean;
begin
write('introdu nr. de elevi n= '); read(n);
writeln('introdu datele despre ',n,' elevi: ');
for i:=1 to n do
begin
writeln('Datele elevului ',i);
write( 'nr/o '); read(LE[i].nrord);
write(' nume: '); read(LE[i].nume);
write('prenume: '); read(LE[i].prenume);
writeln('introdu 6 note de la examene intr-o linie');
writeln(' notele sunt separate prin spatiu : ');
for j:=1 to 6 do
begin
read(LE[i].note[j]);
LE[i].media:=LE[i].media+LE[i].note[j];
end;
LE[i].media:=LE[i].media/6;
end;
writeln('a) Lista elevilor cu media mai mica ca 5:');
gasit:=false;
for i:=1 to n do
begin
if LE[i].media<5 then
begin
gasit:=true;
writeln(LE[i].nrord,'. ',LE[i].nume,' ',LE[i].prenume)
end;
end;
if (not gasit) then writeln('NU EXISTA...');
writeln('b) Lista elevilor cu nota medie intre 5 si 7,5 ');
gasit:=false;
for i:=1 to n do
begin
if (LE[i].media>5)and(LE[i].media<7.5) then
begin
gasit:=true;
writeln(LE[i].nrord,'. ',LE[i].nume,' ',LE[i].prenume)
end;
end;
if not gasit then writeln('NU EXISTA...');
end.