Версия для печати темы

Автор: DZZRtt 30.11.2006 13:50

Подскажите пожалуйста есть одна задача если бы можно было использовать массив то давно бы ее решил.

Ввести восемь чисел и вычислить количество нулей, отрицательных и положительных чисел отдельно

код не нужен просто натолкните на мысль

Заранее благодарен

Автор: klem4 30.11.2006 13:57

count := 0;
positive := 0;
negative := 0;
null := 0;

repeat
  readln(X);
  if X > 0 then inc(positive)
   else
  if X < 0 then inc(negative)
   else
  inc(null);
 inc(count);
until count = 8;

Автор: DZZRtt 30.11.2006 14:09

тоесть этот код будет перебирать все числа введеныые с клавиаткры или сгенеренные случайно?

Автор: мисс_граффити 30.11.2006 14:32

с клавиатуры. видишь же readln

Автор: DZZRtt 30.11.2006 15:01

Этот код должен повторяться для еаждого введеноого числа х1,х2, ...х8?
или он сразу действует для всех введенных чисел. Тоесть яя не могу рзобраться как сделать
так, чтобы программа перебирала все введенные числа.

Автор: volvo 30.11.2006 15:36

А запустить ты его не пробовал? Этот код просит тебя ввести 8 чисел, и ДЛЯ КАЖДОГО из них сразу после ввода делает необходимые действия... То есть, после последней строки у тебя positive/negative/null хранят количество положительных/отрицательных/нулевых значений соответственно...

А тебе нечего перебирать, массива-то нету... Можно только обрабатывать "on the fly", как говорится...