Question

Se consideră tabloul A[1..n] de numere intregi, n<=100.Sa se scrie un program care numără cite elemente sunt mai mari decit media aritmetică a tuturor elementelor. (IN PASCAL)

Answer 1

Program Tema;

var a:array[1..100] of integer;
    n,i,nr:integer;
    s,medie_arit:real;
Begin
s:=0;
nr:=0;
writeln('Introduceti nr de elemente: ');
readln(n);
writeln('Introduceti elementele: ');
for i:=1 to n do
begin
read(a[i]);
s:=s+a[i];
end;
medie_arit:=s/n;
for i:=1 to n do
begin
if a[i]>medie_arit then
nr:=nr+1;
end;
writeln('Nr de elemente mai mare decat media aritmetica este: ',nr);
End.