BÀI LÀM VIỆC VỚI DÃY SỐCÂU HỎI VÀ BÀI TẬP

9. Chơng trình nhập n số nguyên từ bàn phím và tính tổng các số dơng:

uses crt;

var n,k,S: integer;

X: array[1..1000] of integer;

begin

clrscr;

write('Nhap so tu nhien n: '); readln(n);

for k:=1 to n do

begin write('Nhap X[',k,']='); readln(X[k]) end;

S:=0;

if X[k]>0 then S:=S+X[k];

writeln('Tong cac duong S=',S);

readln;

end.