Question

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

Answer 1

program raf105;

var

 n,i,x,sum,pro,kol1,kol2: integer;

begin

 write('Введите N: ');

 readln(n);

 writeln('Вводите ',n,' чисел по очереди');

 pro:= 1;

 for i:=1 to n do

 begin

   readln(x);

   if x > 0

     then begin

       sum:= sum+x;

       kol1:= kol1+1;

     end;

   if x < 0

     then begin

       pro:= pro*x;

       kol2:= kol2+1;

     end;

  end;

  writeln('Количество положительных: ',kol1);

  writeln('Сумма положительных: ',sum);

  writeln('Количество отрицательных: ',kol2);

  writeln('Произведение отрицательных: ',pro);

end.

PascalABC 3.4.2

Answer 2

Для написания программы на языке Паскаль (Pascal), которая будет выполнять указанные действия, необходимо определить переменные, считать входные данные и затем обработать их. В Pascal мы можем использовать массивы для хранения N введенных чисел. Вот пример программы:

pascalCopy code
program CountPosNeg;

const
  N = 5; // Здесь можно указать количество чисел N, которое вы хотите обработать.

var
  numbers: array[1..N] of Integer;
  i, positiveCount, negativeCount, sumPositive, productNegative: Integer;

begin
  // Ввод чисел
  writeln('Введите ', N, ' чисел:');
  for i := 1 to N do
    readln(numbers[i]);

  // Инициализация счетчиков и суммы/произведения
  positiveCount := 0;
  negativeCount := 0;
  sumPositive := 0;
  productNegative := 1;

  // Обработка чисел
  for i := 1 to N do
  begin
    if numbers[i] > 0 then
    begin
      // Положительное число
      positiveCount := positiveCount + 1;
      sumPositive := sumPositive + numbers[i];
    end
    else if numbers[i] < 0 then
    begin
      // Отрицательное число
      negativeCount := negativeCount + 1;
      productNegative := productNegative * numbers[i];
    end;
  end;

  // Вывод результатов
  writeln('Количество положительных чисел: ', positiveCount);
  writeln('Сумма положительных чисел: ', sumPositive);
  writeln('Количество отрицательных чисел: ', negativeCount);
  writeln('Произведение отрицательных чисел: ', productNegative);
end.

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

Пример ввода:

diffCopy code
Введите 5 чисел:
1
-2
3
-4
5

Пример вывода:

Copy code
Количество положительных чисел: 4
Сумма положительных чисел: 9
Количество отрицательных чисел: 2
Произведение отрицательных чисел: 8

Обратите внимание, что в коде предполагается, что пользователь будет вводить только целые числа. Если ввод могут быть и дробные числа, необходимо использовать другой тип данных (например, Real) и соответствующим образом изменить код для работы с такими числами.