Quảng cáo
1 câu trả lời 192
program countPositiveNumbers;
var
number, positiveCount, negativeCount : integer;
begin
writeln('Enter a list of numbers (enter 0 to stop):');
positiveCount := 0;
negativeCount := 0;
repeat
readln(number);
if number > 0 then
positiveCount := positiveCount + 1
else if number < 0 then
negativeCount := negativeCount + 1;
until number = 0;
writeln('The number of positive numbers is: ', positiveCount);
writeln('The number of negative numbers is: ', negativeCount);
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
86376
Gửi báo cáo thành công!
