Bài 11: Kiểu mảng

H24

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

ML
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.

Bình luận (0)

Các câu hỏi tương tự
TN
Xem chi tiết
VT
Xem chi tiết
NN
Xem chi tiết
NT
Xem chi tiết
LC
Xem chi tiết
TN
Xem chi tiết
H24
Xem chi tiết
NH
Xem chi tiết
TT
Xem chi tiết