Question

Se da un tabel liniar ce contine notele unui grup de cel mult 40 de elevi la o lucrare.Sa se afle nota medie/mazima/minima.

Answer 1

program noteGrupa;

type note = 1..10;

    tablou=array[1..40] of note;

var n, i, notamin, notamax, suma: integer;

   notamed:real;

   T:tablou;

begin

 write('n= '); read(n);

 writeln(' introdu ',n,' note din intervalul [1..10] ');

 notamin:=10; notamax:=1;

 for i:=1 to n do

    begin

      read(T[i]);

      if T[i]<notamin then notamin:=T[i];

      if T[i]>notamax then notamax:=T[i];

      suma:=suma+T[i];

    end;

 notamed:=suma/n;

 writeln('nota minima = ',notamin);

 writeln('nota maxima = ',notamax);

 writeln('nota medie = ',int(notamed*100)/100:0:2);

 writeln('P.S. media se afiseaza cu 2 zecimale fara rotunjire...');

end.