Tali

Viết chương trình nhập một dãy gồm n số thực từ bàn phím. Tính tổng và trung bình cộng các số đó. In kết quả tính được ra màn hình.

Mọi người giúp em bài này với ạ!

Nguyễn Lê Phước Thịnh
10 tháng 5 2021 lúc 17:52

uses crt;

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

i,n:integer;

t:real;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

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

end;

t:=0;

for i:=1 to n do 

t:=t+a[i];

writeln('Tong cua day la: ',t:4:2);

writeln('Trung binh cong cua day la: ',t/n:4:2);

readln;

end.

Bình luận (1)

Các câu hỏi tương tự
Tali
Xem chi tiết
hoàng kim
Xem chi tiết
Bùi Trần Nghĩa Hưng
Xem chi tiết
hà phương
Xem chi tiết
Yeu DUong nhat
Xem chi tiết
Huỳnh Tiến Thiên
Xem chi tiết
Linh Nguyen
Xem chi tiết
phạm hải nam
Xem chi tiết
Ngọc hà
Xem chi tiết