Question

Se considera un sir de n elemente si un numar intreg x. elaborati un program care va afisa pe ecran:
1) câte elemente sunt mai mari decat x
2) media aritmetica a elementelor mai mari decat x
3) elementul maxim din sirul dat​

Answer 1

Răspuns:

Program Pascal:

program Sir;

var

 n, x, i, cnt, s, max: integer;

 a: array[1..50] of integer;

begin

 readln(n);

 for i := 1 to n do begin

   readln(a[i]);

 end;

 readln(x);

 cnt := 0; s := 0; max := a[1];

 for i := 1 to n do begin

   if a[i] > x then begin

     cnt := cnt + 1;

     s := s + a[i];

   end;

   if a[i] > max then begin

     max := a[i];

   end;

 end;

 writeln('1) Numarul de elemente mai mari decat x: ', cnt);

 if cnt > 0 then

   writeln('2) Media aritmetica a elementelor mai mari decat x: ', s / cnt:0:2)

 else

   writeln('2) Nu exista elemente mai mari decat x.');

 writeln('3) Elementul maxim din sir: ', max);

 readln;

end.

Explicatie:

De aceasta data, sirul este citit inaintea numarului x.