Question

Ребят срочно помогите,прошу!!!! Напишите программу, которая в последовательности целых чисел определяет их сумму и подсчитывает разность количества положительных и отрицательных чисел последовательности. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окон-чания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести два числа: сумму чисел и разность количества положительных и отри-цательных чисел.(паскаль)

Answer 1

Прикрепляю код программы в файле.

Answer 2

===== PascalABC.NET =====

begin

 var (s, k) := (0, 0);

 var x := ReadInteger;

 while x <> 0 do

 begin

   s += x;

   k += Sign(x);

   x := ReadInteger

 end;

 Println('Сумма', s);

 Print('Разность количества', k)

end.

Answer 3

Конечно, вот пример программы на языке Паскаль, которая решает задачу:

pascalCopy code
program CalculateSumAndDifference;
const
  MAX_NUMBERS = 1000;
  MAX_ABS_VALUE = 30000;
var
  numbers: array [1..MAX_NUMBERS] of Integer;
  numCount, i, positiveCount, negativeCount, currentNumber, sum: Integer;
begin
  { Инициализация счетчиков и суммы }
  numCount := 0;
  positiveCount := 0;
  negativeCount := 0;
  sum := 0;

  { Ввод последовательности чисел до тех пор, пока не будет введен 0 }
  repeat
    Write('Введите число (0 - окончание ввода): ');
    ReadLn(currentNumber);

    { Проверка наличия числа в разрешенных пределах }
    if (currentNumber <> 0) and (Abs(currentNumber) <= MAX_ABS_VALUE) then
    begin
      Inc(numCount);
      numbers[numCount] := currentNumber;

      { Подсчет количества положительных и отрицательных чисел }
      if currentNumber > 0 then
        Inc(positiveCount)
      else if currentNumber < 0 then
        Inc(negativeCount);

      { Подсчет суммы }
      sum := sum + currentNumber;
    end;
  until currentNumber = 0;

  { Вывод результатов }
  WriteLn('Сумма чисел: ', sum);
  WriteLn('Разность количества положительных и отрицательных чисел: ', positiveCount - negativeCount);
end.

Программа работает следующим образом:

1. Создает массив numbers для хранения введенных чисел.
2. Инициализирует счетчики numCount, positiveCount, negativeCount, и sum.
3. Вводит последовательность чисел с клавиатуры до тех пор, пока не будет введен 0.
4. Для каждого введенного числа:
   • Увеличивает счетчик numCount.
   • Если число положительное, увеличивает positiveCount, если отрицательное, увеличивает negativeCount.
   • Добавляет число к sum.
5. Выводит сумму чисел и разность количества положительных и отрицательных чисел.

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