tin học lớp 8. cần gấp!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!?

Question

Đề:Hãy tính tổng các phần tử của dãy số A={a1,a2,...,an} cho trước?
thuật toán: input: dãy số A={a1,a2,...,an}.
                 output: tổng các phần tử của dãy số A={a1,a2,...,an}.
                 B1: S:= a1 ; i:=0.
                 B2: i:=-i+1.
                 B3: Nếu i<=an thì S<----S+ai và quay lại bước 2.
                 B4: Thông báo kết quả và kết thúc thuật toán.
ai viết chương trình cho thuật toán trên giúp em với!

Toan.it · Accepted Answer

Program tinh_tong;
var i,n:integer;
s:real;
Begin
write('Nhap so pt :');readln(n);
write(' Nhap gt day so:');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
{ tong day so vua nhap}
s:=0;
for i:=1 to n do
s:=s+a[i];
write(' Tong day so vua nhap:',s:7:3);
readln;
End.
gõ chạy thử xem. vì anh chưa kiểm tra trên chương trình đâu. Bài này nhập mảng. Không biết em đã học chưa?

tin học lớp 8. cần gấp!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!?

1 Câu trả lời