Ken Kaneki

Viết chương trình nhập vào một mảng nguyên, gồm n phần tử nhập từ bàn phím, in mảng đã nhập ra màn hình, tính trung bình cộng của mảng đó.

 

Nguyễn Lê Phước Thịnh
21 tháng 8 2021 lúc 0:49

uses crt;

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

i,n,t:integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

begin

readln(a[i]);

end;

for i:=1 to n do 

  write(a[i]:4);

readln;

t:=0;

for i:=1 to n do 

 t:=t+a[i];

writeln(t/n:4:2);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Thảo Nguyễn
Xem chi tiết
Huy Hoàng Phạm
Xem chi tiết
Nguyễn tiên
Xem chi tiết
lamgi hoi
Xem chi tiết
Nguyễn Quang Kiệt
Xem chi tiết
Bé Kunz
Xem chi tiết
ngomanhcuong
Xem chi tiết
Nghia Phan
Xem chi tiết
Lê Thị Hồng anh
Xem chi tiết