Программа получает на вход целые числа, количество введенных чисел
Условие
Напишите программу, которая в последовательности целых чисел определяет их сумму и подсчитывает разность количества положительных и отрицательных чисел последовательности. Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность).Количество чисел не превышает 1000. Введенные числа по модулю не превышают 30 000. Программа должна вывести два числа: сумму чисел и разность количества положительных и отрицательных чисел. Пример работы программы: Входные данные | Выходные данные | 150 −200 −1
| 0 | −51 |
|---|---|
| −1 |
Формат задания
Решение по шагам
Как рассуждать
Решение. var a, sum, npos, nneg: integer;begin sum := 0; npos := 0; nneg := 0; readln(a); while a <> 0 do begin sum := sum + a; if (a <
Осталось ещё 1 шаг
| then nneg := nneg + 1 else npos := npos +…
Бесплатно · займёт минуту