Ребят срочно помогите,прошу!!!! Напишите программу, которая в последовательности целых...

Question

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

Comments

И что? Обычный однопроходный алгоритм. Читаем и считаем в единственном цикле, данные хранить не надо.

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.

---