Question

Viết chương trình nhập vào một mảng các số nguyên. Ghi ra màn hình giá trị trung bình cộng của mảng đó và các phần tử nhỏ hơn giá trị trung bình cộng của mảng.

Answer 1

uses crt;

var a:array[1..100]of integer;

i,n,t:integer;

tb:real;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

t:=0;

for i:=1 to n do t:=t+a[i];

writeln(t/n:4:2);

tb:=t/n;

for i:=1 to n do 

  if a[i]<tb then write(a[i]:4);

readln;

end.