Bài 7. Câu lênh lặp

AD

Viết chương trình tính tổng của N số thực

ML
16 tháng 6 2020 lúc 21:22

Program HOC24;

var i,n: integer;

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

t: real;

begin

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

t:=0;

for i:=1 to n do

begin

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

t:=t+a[i];

end;

write(t);

readln

end.

Bình luận (0)

Các câu hỏi tương tự
LD
Xem chi tiết
PK
Xem chi tiết
NT
Xem chi tiết
BD
Xem chi tiết
NN
Xem chi tiết
LA
Xem chi tiết
TU
Xem chi tiết
H24
Xem chi tiết
LK
Xem chi tiết
HC
Xem chi tiết