Bài 8. Lặp với số lần chưa biết trước

Nguyen Phan Anh

Viết chương trình tính tổng của một dãy số thực từ bàn phím

Minh Lệ
15 tháng 5 2020 lúc 21:05

Program HOC24;

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

i,n: integer;

t: real;

begin

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

for i:=1 to n do

begin

write('Nhap so thu ',i,' : '); readln(a[i]);

end;

t:=0;

for i:=1 to n do t:=t+a[i];

write('Tong cua day so thuc la : ',t:1:2);

readln

end.

Bình luận (0)

Các câu hỏi tương tự
nhan tran
Xem chi tiết
HUY HUỲNH QUANG
Xem chi tiết
Thu Anh
Xem chi tiết
Didn
Xem chi tiết
Phan Thị Phương Thy
Xem chi tiết
Nhật Duy Lê Võ
Xem chi tiết
Đào Tất Thắng
Xem chi tiết
Huyen Dinh phuong
Xem chi tiết
su nè
Xem chi tiết
trinhtrannamhoa
Xem chi tiết