Question

Помогоите пожалуйста с информатикой. НУжно решить задачу в Turbo Pascal. 1. Случайным образом генерируется N целых чисел в диапазоне от -5 до 5. Посчитать сколько среди них положительных, отрицательных и не равных 0.  

Answer 1

Нуль считаем особым числом ни положительным ни отрицательным.

 

 Program Amount;
Uses crt;
var i,n,otr,pol,nz,v:integer;

begin
clrscr;
write('Input n=');
readln(n);
otr:=0;nz:=0;pol:=0;
randomize;
for i:=1 to n do
begin
v:=random(10)-5;
write(v);write(' ');
if (v>0) then pol:=pol+1
else if (v<0) then otr:=otr+1;
end;

nz:=otr+pol;
writeln;
writeln('Amount of positive numbers:',pol); {Кол-во полжительных чисел}
writeln('Amount of negative numbers:',otr); {Кол-во отрицательных чисел}
writeln('Amount of non-zero numbers:',nz); {Кол-во ненулевых чисел}

readkey;

end.

Answer 2

Конечно, я могу помочь вам с этой задачей. Вот пример программы на Turbo Pascal, которая решает данную задачу:

pascalCopy code
program CountNumbers;
uses crt;

var
  N, i, positiveCount, negativeCount, nonzeroCount: integer;
  number: integer;

begin
  randomize;  // Инициализация генератора случайных чисел

  write('Введите количество чисел N: ');
  readln(N);

  positiveCount := 0;
  negativeCount := 0;
  nonzeroCount := 0;

  for i := 1 to N do
  begin
    number := random(11) - 5;  // Генерация случайного числа от -5 до 5

    writeln('Сгенерированное число: ', number);

    if number > 0 then
      positiveCount := positiveCount + 1
    else if number < 0 then
      negativeCount := negativeCount + 1;

    if number <> 0 then
      nonzeroCount := nonzeroCount + 1;
  end;

  writeln('Количество положительных чисел: ', positiveCount);
  writeln('Количество отрицательных чисел: ', negativeCount);
  writeln('Количество чисел, не равных нулю: ', nonzeroCount);

  readln;
end.

В этой программе мы используем генератор случайных чисел randomize и функцию random(11) - 5, чтобы сгенерировать случайное число в диапазоне от -5 до 5.

После ввода значения N с помощью цикла for генерируются случайные числа N раз. Затем каждое число проверяется на положительность, отрицательность и неравенство нулю, и соответствующие счетчики увеличиваются. Наконец, выводится количество положительных, отрицательных и ненулевых чисел.

Надеюсь, эта программа поможет вам решить задачу! Если у вас возникнут еще вопросы, не стесняйтесь задавать.