Напишите программу, которая в последовательности целых чисел определяет их сумму и подсчитывает разность количестваположительных и отрицательных чисел последовательности. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). программа должна вывести два числа: сумму чисел и разность количества положительных и отрицательных чисел.

Question

На­пи­ши­те про­грам­му, ко­то­рая в по­сле­до­ва­тель­но­сти целых чисел опре­де­ля­ет их сумму и под­счи­ты­ва­ет раз­ность ко­ли­че­ствапо­ло­жи­тель­ных и от­ри­ца­тель­ных чисел по­сле­до­ва­тель­но­сти. Про­грам­ма по­лу­ча­ет на вход целые числа, ко­ли­че­ство введённых чисел не­из­вест­но, по­сле­до­ва­тель­ность чисел за­кан­чи­ва­ет­ся чис­лом 0 (0 — при­знак окон­ча­ния ввода, не вхо­дит в по­сле­до­ва­тель­ность). программа должна вывести два числа: сумму чисел и разность количества положительных и отрицательных чисел.

athathv954 · Answer

Program n1;var sum,kp,ko,a: integer;beginreadln(a);sum:=0;ko:=0;kp:=0;while a0 dobeginsum:=sum+a;if a>0 then kp:=kp+1else ko:=ko+1;readln(a);end;writeln(sum);writeln(kp-ko);end.

Ответы и объяснения 1

Знаете ответ? Поделитесь им!

Есть сомнения?