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

RancoR1 RancoR1    1   05.04.2020 21:46    3

Ответы
novkristinaa novkristinaa  13.09.2020 07:25

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

ПОКАЗАТЬ ОТВЕТЫ

===== 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.


Ребят Напишите программу, которая в последовательности целых чисел определяет их сумму и подсчитывае
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика