Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Hoàng Hà
Viết chương trình dãy n số được nhập từ bàn phím rồi tìm ra trong dãy số có bao nhiêu số dương?
Nguyễn Lê Phước Thịnh
23 tháng 2 2021 lúc 20:15

uses crt;

var a:array[1..100]of integer;

i,n,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

dem:=0;

for i:=1 to n do 

  if a[i]>0 then inc(dem);

writeln(dem);

readln;

end.


Các câu hỏi tương tự
Ngân
Xem chi tiết
Ngọc Phi 7D5
Xem chi tiết
Eliette
Xem chi tiết
An Trần
Xem chi tiết
Nguyễn Trường An
Xem chi tiết
fqfqfqfqfq
Xem chi tiết
Như Huỳnh
Xem chi tiết
Thị Ngọc Tím Bạch
Xem chi tiết
Trang Trần Thị Hà
Xem chi tiết