Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Khue Nguyen

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.

Nguyễn Lê Phước Thịnh
9 tháng 5 2022 lúc 19:38

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.


Các câu hỏi tương tự
Thọ Lê Đức
Xem chi tiết
ahihi bảo
Xem chi tiết
taf.amp
Xem chi tiết
ngu ngốc
Xem chi tiết
taf.amp
Xem chi tiết
Khue Tran
Xem chi tiết
my trần
Xem chi tiết
ahihi bảo
Xem chi tiết
MiMi
Xem chi tiết