Bài 7. Câu lênh lặp

CA

viết chương trình đếm số dương trong dãy n số nguyên

NT
2 tháng 2 2021 lúc 21:25

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('So luong so duong la: ',dem);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
DN
Xem chi tiết
GK
Xem chi tiết
TT
Xem chi tiết
LD
Xem chi tiết
BD
Xem chi tiết
LP
Xem chi tiết
MU
Xem chi tiết
TH
Xem chi tiết
H24
Xem chi tiết