cho day {aN} gom so nguyen a1,a2,...,aN(3<=N<=10000).so lon nhat co gia tri tuyet doi ko vuot qua 1000
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Var
i,d,n :integer;
a:array[1..100] of integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if a[i]>0 then d:=d+1;
write('mang A co :',d,'so nguyen duong');
readln
end.
Đề bài yêu cầu gì?