Question

Водится число N, а затем N целых чисел.Необходимо вывести число Нулей, затем Число положительных и отрицательных чисел. Паскаль 8 класс (базовый уровень)

Answer 1

Ответ:

PascalABC.NET

begin

 var zeroes, positives, negatives: integer;

 var sqnc := ReadSeqInteger('Вводи: ', ReadInteger('n = '));

 foreach var number in sqnc do begin

   if number > 0 then inc(positives);

   if number = 0 then inc(zeroes);

   if number < 0 then inc(negatives);

 end;

 Println(zeroes, positives, negatives);

end.

Объяснение:

Answer 2

Ответ:

var

 i, chislo, count, c1, c2, c3: integer;

begin

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

 read(count);

 writeln('Введите числа: ');

 for i := 1 to count do

 begin

   readln(chislo);

   if chislo = 0 then

     c1 := c1 + 1;

   if chislo > 0 then

     c2 := c2 + 1;

   if chislo < 0 then  

     c3 := c3 + 1;

 end;

 writeln('=0 ', c1);

 writeln('>0 ', c2);

 writeln('<0 ', c3);

end.

Answer 3

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

pascalCopy code
program CountNumbers;

var
  N, num, zeros, positives, negatives: integer;

begin
  zeros := 0;
  positives := 0;
  negatives := 0;

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

  writeln('Введите ', N, ' целых чисел:');

  for var i := 1 to N do
  begin
    readln(num);

    if num = 0 then
      zeros := zeros + 1
    else if num > 0 then
      positives := positives + 1
    else
      negatives := negatives + 1;
  end;

  writeln('Количество нулей: ', zeros);
  writeln('Количество положительных чисел: ', positives);
  writeln('Количество отрицательных чисел: ', negatives);

  readln;
end.

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