30 likes | 164 Views
TEMA DE CASA. PROBLEMA:. Un elev doreste sa aiba evidenta mediilor obtinute intr-o luna de scoala.Acesta vrea sa afle cea mai mare nota obtinuta pe parcursul acestei luni si in ce zile ale lunii a obtinut-o. REZOLVARE:. PROGRAM VECTOR; VAR V:ARRAY[1..35] OF INTEGER;
E N D
PROBLEMA: • Un elev doreste sa aiba evidenta mediilor obtinute intr-o luna de scoala.Acesta vrea sa afle cea mai mare nota obtinuta pe parcursul acestei luni si in ce zile ale lunii a obtinut-o.
REZOLVARE: PROGRAM VECTOR; VAR V:ARRAY[1..35] OF INTEGER; I,N,MAX:INTEGER; BEGIN WRITE (‘N=‘);READLN(N); FOR I:=1 TO N DO BEGIN WRITE(‘V[‘,I,’]=‘); READLN(V[I]); END; FOR I:=1 TO N DO WRITE (V[I],’ ‘); MAX:=V[1]; FOR I:=2 TO N DO IF V[I]>MAX THEN MAX:=V[I]; WRITELN(‘VALOAREA MAXIMA ESTE:’,MAX); FOR I:= 1 TO N DO IF V[I] =MAX THEN WRITE (I,’,’); END.