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
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
program Mang;
uses crt;
var A:array [1..500] of integer;
n,i: integer;
TB: real;
Begin
clrscr;
write(‘Nhap so phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]=’); readln(A[i]);
TB:=TB+A[i];
end;
TB:=TB/n;
writelln(‘Trung binh cong cua mang = ‘,TB:2:1);
write(‘Cac gia tri < gia tri trung binh cong: ‘);
for i:=1 to n do
if A[i]<TB then write(A[i],’ ‘);
readln
End.
Hình ‘-‘