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à in các phần tử nhỏ hơn giá trị trung bình cộng của mảng

Answer 1

Program HOC24;

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

i,n: integer;

tbc: real;

begin

write('Nhap so phan tu cua mang : '); readln(n);

tbc:=0;

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

tbc:=tbc+a[i];

end;

tbc:=tbc/n;

writeln('Gia tri trung binh cong cua mang la : ',tbc:2:2);

write('Cac phan tu nho hon trung binh cong cua mang la : ');

for i:=1 to n do

if a[i]<tbc then write(a[i],' ');

readln

end.