Bài 11: Kiểu mảng

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

Viết pt nhập vào 100 số nguyên, đưa ra số lượng số nguyên âm và số nguyên dương

Minh Lệ
17 tháng 2 2022 lúc 21:03

Program HOC24;

var i,duong,am: byte;

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

begin

for i:=1 to 100 do 

begin

write('Nhap so thu ',i,' :'); readln(a[i]);

end;

duong:=0; am:=0;

for i:=1 to n do

begin

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

if a[i]<0 then am:=am+1;

end;

writeln('Co ',duong,' so nguyen duong');

write('Co ',am,' so nguyen am');

readln

end.


Các câu hỏi tương tự
Trần Quốc Nguyễn
Xem chi tiết
Van Trieu
Xem chi tiết
Nguyen Nhi
Xem chi tiết
Nguyễn Phú Trọng
Xem chi tiết
Linh Chi
Xem chi tiết
Trần Quốc Nguyễn
Xem chi tiết
Dandelion
Xem chi tiết
Nhi Hương
Xem chi tiết
Tiên trần
Xem chi tiết