1. 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ố.
Program testt;
uses crt;
var n,i,d:integer;
a:array[1..1000] of Int64;
Begin
clrscr;
write('Nhap n:'); readln(n);
for i:=1 to n do
begin
write('Nhap a[',i,']:'); readln(a[i]);
end;
for i:=1 to n do
if a[i]>0 then inc(d);
writeln('So cac so nguyen duong trong day:',d);
readln;
End.
