Yêu cầu: Viết chương trình nhập vào n số nguyên. In ra số lượng các số nguyên dương trong dãy số.
Dữ liệu:
Dòng đầu tiên ghi số nguyên không âm n (0 < n <= 1000) .Dòng 2 ghi n số nguyên dương kiểu 64 bit cách nhau một dấu cách trống.Kết quả: Đưa ra số lượng các số nguyên dương trong dãy số.
var A:
array[1..n] of int64;
i, n, count: integer;
begin
write('Nhap so phan tu cua mang: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(A[i]);
end;
count := 0;
for i := 1 to n do
if A[i] > 0 then
count := count + 1;
writeln('So luong cac so nguyen duong trong mang la: ', count); end.