Напишите программу, которая в последовательности целых чисел определяет их сумму и подсчитывает разность количестваположительных и отрицательных чисел последовательности. программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). программа должна вывести два числа: сумму чисел и разность количества положительных и отрицательных чисел.
Другие вопросы по теме Информатика
Ivanprofi22
02.06.2019 02:40
katizh
02.06.2019 02:40
Vageha356
03.10.2019 00:10
sheramedi
03.10.2019 00:10
vitaly1552
02.10.2019 22:42
KotenokLove10
02.10.2019 22:52
Aleksandra231v
03.10.2019 00:10
lolkek12398
03.10.2019 00:10
ShHanddW
03.10.2019 00:10
Популярные вопросы
- Кратко описать тему и формулы к этой теме (сделать готовые билеты ((задачи...
3 - 1.Які проблеми порушено у творі? 2. Чому Старий і море вважається філософською...
2 - К какому литературному направлению начала XX века относился В.Маяковский?...
1 - 1) Где лечили людей от физических травм в Европе в 17 веке ,в 18 веке и...
2 - Практическое задание Определить расход материалов, при возведении подвесного...
3 - Что такое федеральные территории? ...
1 - Скільки існує пін-кодів, якщо крайні цифри однакові, а дві внутрішніх різні...
3 - Точки A, B, C, D не лежат в одной плоскости. Будут ли плоскости, проходящие...
2 - Вычислить значение выражения...
3 - 5. Сумма цифр двузначного числа равна 13. Если записать его цифры в обратном...
1
var sum,kp,ko,a: integer;
begin
readln(a);
sum:=0;
ko:=0;
kp:=0;
while a<>0 do
begin
sum:=sum+a;
if a>0 then kp:=kp+1
else ko:=ko+1;
readln(a);
end;
writeln(sum);
writeln(kp-ko);
end.