Question

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

Answer 1

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

1dae5304e5efd0ddbed2bf01427c603a.pas

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.