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.