Вводится последовательность ненулевых чисел; 0 — конец…

93

Вводится последовательность ненулевых чисел; 0 — конец последовательности. Посчитать, сколько в ней отрицательных чисел, и сумму положительныхчисел.

категория: информатика

ответить

в избранное

56

shkiper

19 марта 2023

var x,s,n: integer; BEGIN repeat read (x); if x<0 then n: =n+1; if x >0 then s: =s+x; until x=0; writeln (n,s); END.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?

Задайте свой вопрос

Смотрите также:

Удалить из массива элемент в диапазоне [-50; 50] равный заданному (вводится склавиатуры)

Мальчик решил почистить аквариум. Начал с переселения рыб в банку. Семейство рыб составляла 30 штук

Билет на одну поездку в метро стоит 15 рублей, билет на 5 поездок стоит 70 рублей, билет на 10 поездок стоит 125 рублей…

Запони Цели создания модели бывают такие: сохранить информацию о наблюдаемом _____________ передать ___________________…

Написать программу, которая запрашивает название животного и число а затем выводит на экран фразу типа"белка съест…

Напишите программу, которая выводит на экран коды символов 'A', 'B', 'C' , … ., 'Z'

Экипаж пиратского корабля: одноногий капитан несколько матроссов кок и несколька кошек У них вместе 15 голов 41 нога…

1) Дано целое многозначное число n. Найти сумму цифр этого числа 2) Найти произведение первых n натуральных чисел

Составте программу, которая рисует рекламны плакаты

27400

14822

Английский язык

14216

Биология

7369

720

Экономика

18829

8304

География

15850

Геометрия

5255

Информатика

11818

23332

15992

Литература

73118

Математика

8152

Обществознание

466

Правоведение

46271

Русский язык

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!

Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!

Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...