Phần mềm học tập

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Đặng Minh Hiếu

Viết chương trình nhập vào 1 dãy số gồm n số ( n được nhập từ bàn phím) . Đếm xem trong dãy có bao nhiêu số âm ,bao nhiêu số dương ( Biết số âm là những số < 0, số dương là những số >0) giúp mình vớiii mai mình thi gòiiii

Đỗ Thị Minh Ngọc
26 tháng 4 2022 lúc 22:19

progam bai1;

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

i,n,dem1,dem2 : integer ;

begin

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

writeln('Nhap gia tri cua cac phan tu');

for i:= 1 to n do

begin

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

end;

dem1:=0; dem2:=0;

for i:= 1 to n do

begin

if a[i]>0 then dem1:=dem1+1;

if a[i]>0 then dem1:=dem2+1;

end;

write('Cac so nguyen am trong day la:',dem1);

writeln;

write('Cac so nguyen am trong day la:',dem2);

readln;

end.


Các câu hỏi tương tự
Linh Da
Xem chi tiết
Anh Nguyen
Xem chi tiết
Nguyễn Phúc
Xem chi tiết
Nguyen Tan Dat
Xem chi tiết
Ngânn Okk
Xem chi tiết
Nguyễn Kim Trí
Xem chi tiết
Trần Đức Hoàng
Xem chi tiết
Đặng Nguyệt
Xem chi tiết
Finn
Xem chi tiết