Kiểu dữ liệu có cấu trúc

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

Nhập dãy C gồm N số thực (N<=250). Đếm số các số dương trong dãy.

(Pc mn nhé)

Nguyễn Lê Phước Thịnh
4 tháng 11 2020 lúc 17:23

uses crt;

var c:array[1..250]of real;

dem,i,n:integer;

begin

clrscr;

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

for i:=1 to n do

begin

write('C[',i,']='); readln(c[i]);

end;

dem:=0;

for i:=1 to n do

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

writeln('So luong cac so duong trong day la: ',dem);

readln;

end.


Các câu hỏi tương tự
Quý Tạ
Xem chi tiết
Nguyễn Quyết Chiến
Xem chi tiết
Huyền Trang
Xem chi tiết
Phạm Tường Vy
Xem chi tiết
Nguyễn Toàn
Xem chi tiết
pham thuy vy
Xem chi tiết
Quý Tạ
Xem chi tiết
Nguyễn Thị Ngọc Ánh
Xem chi tiết
lan hoang
Xem chi tiết
Dương Chí Tôn
Xem chi tiết