Lập trình đơn giản

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

Viết chương trình nhập dãy số nguyên gồm n phần tử. Hãy đếm số phần tử dương trong n số nhập từ bàn phím.

Nguyễn Lê Phước Thịnh
25 tháng 6 2020 lúc 13:47

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 phan tu duong la: ',dem);

readln;

end.


Các câu hỏi tương tự
Yeu DUong nhat
Xem chi tiết
Nguyễn Linh
Xem chi tiết
Nhân lê
Xem chi tiết
Phạm Thị Kim Anh
Xem chi tiết
Quỳnh
Xem chi tiết
duyy
Xem chi tiết
Hoài Right
Xem chi tiết
Khang Đinh Hoàng
Xem chi tiết
Thảo Nguyên 36-88
Xem chi tiết