Bài 9. Làm việc với dãy số

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Quandung Le

vct nhap vao so nguyen N va day a1,a2...aN. kiem tra xem day A co bao nhieu so nguyen duong

Trâm Nguyễn Thị Ngọc
21 tháng 12 2018 lúc 16:33

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.


Các câu hỏi tương tự
Chu Nam
Xem chi tiết
Kimthuan Do
Xem chi tiết
curtis lê
Xem chi tiết
Thuyết Dương
Xem chi tiết
Dương Công Hiếu
Xem chi tiết
Giao Huỳnh
Xem chi tiết
nguyễn thu thủy
Xem chi tiết
Bùi Jessica
Xem chi tiết
Nguyễn Xuân Dự
Xem chi tiết