Răspuns :
Răspuns:
program CeleMaiBune;
type obiect=(Ist,Geogr,Mate,Fiz,Inf);
Nota=1..10;
SituatieScolara=array [obiect] of Nota;
var o:obiect; n:Nota; t:SituatieScolara;
denObiect:string; notaMax: Nota;
begin
writeln('Introdu situatia scolara (nota) la obiectele:');
notaMax:=1;
for o:=Ist to Inf do
begin
case ord(o) of
0: denObiect:='Istorie ';
1: denObiect:='Geografie ';
2: denObiect:='Matematica ';
3: denObiect:='Fizica ';
4: denObiect:='Informatica ';
end;
write('la ',denObiect,': '); read(t[o]);
if t[o]>notaMax then notaMax:=t[o];
end;
writeln('Obiect cu situatia scolara cea mai buna:');
for o:=Ist to Inf do
begin
if (t[o]=notaMax) then
begin
case ord(o) of
0: denObiect:='Istorie ';
1: denObiect:='Geografie ';
2: denObiect:='Matematica ';
3: denObiect:='Fizica ';
4: denObiect:='Informatica ';
end;
writeln(denObiect);
end;
end;
end.
Explicație:
sper să/ți placă... dacă ceva nu e clar, întrebi și ți se va răspunde.. Succese
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile oferite v-au fost de ajutor. Nu ezitați să ne contactați pentru orice întrebare sau dacă aveți nevoie de asistență suplimentară. Vă așteptăm cu drag data viitoare și nu uitați să ne adăugați la favorite!