Question

Se citesc mediile a n elevi, ca numere reale. Elaborati un program prin intermediul căruia se va atışa cea mai mare şi cea mai mică medie. Să se verifice dacă sunt corigenţi. Exemplu: Date de intrare
n=4 9.50 4.25 9.66 6.33 Date de ieşire max=9.66 min=4.25
În limbajul Pascal!​

Answer 1

Răspuns:

program mediile;

var n,i:integer; m,min,max:real;

begin

  read(n);

   read(m); min:=m; max:=max;

   for i:=2 to n do

      begin

           read(m);

           if m < min then min:=m;

          if m > max then max:=m;

      end;

      writeln('max=',max,' min=',min);

       if min < 5 then writeln('sunt corigenti');

end.

Explicație: