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