Консультация № 138688
30.05.2008, 14:51
0.00 руб.
0 1 1
Уважаемые эксперты!Помрогите пожалуйста решить следующее:
Определить процент положительных и отрицательных чисел.
При вводе числа -65432 закнчить работу.
Спасибо большое!)

Обсуждение

давно
Старший Модератор
31795
6196
30.05.2008, 16:13
общий
это ответ
Здравствуйте, Igor lukashov!

Программа в приложении.
Наверное вместо числа -65432, лучше использовать ноль, т.к. он не пренадлежить ни положительным ни отрицательным, а используемое число отрицательное.
Ввод нуля счетчики не изменяет.
Удачи!

Приложение:
var a:longint; z:array[false..true]of integer;begin {сбрасываем счеттчик} z[false]:=0; z[true ]:=0; repeat {вводим число} write(‘Enter number:‘); readln(a); {проверяем условие, по результатам сравнения увеличится нужный счетчик} inc(z[a>0],ord(a<>0)); until a=-65432; {получаем общее число чисел} a:=z[false]+z[true]; {выводим результат} writeln(‘minus:‘,100*z[false]/a:10:0,‘plus:‘:10,100*z[true]/a:10:0);end.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа