Câu 2: Viết chương trình nhập từ bàn phím dãy số nguyên dương A và kết thúc khi nào A bằng 0 (0<A<100000). Hãy tính tổng các phần tử có trong dãy số.
Ví dụ:
Nhập từ bàn phím
Kết quả màn hình
1
3
2
5
4
0
0
2
34
đáp án
15
program im_14424; uses crt; var A: array [0..100000] of integer; S,n,i: integer; begin clrscr; S:=0; readln(n); for i:=1 to n do begin write('Phan tu thu ',i,' la: '); readln(A[i]); S:=S+A[i]; end; write('Tong cua day la: ',S); readln(S); end.