Наити сумму и количество отрицательных из введенных чисел - Pascal
Формулировка задачи:
Водится 3 числа, лежащих от -100 до 100. Найти их сумму и количество отрицательных.
Решение задачи: «Наити сумму и количество отрицательных из введенных чисел»
textual
Листинг программы
var
a, s, b, i: integer;
begin
for i := 1 to 3
do
begin
read(a);
if a < 0
then b += 1;
s += a;
end;
writeln('Сумма ', s, ' Кол-во отрицательных элементов ', b);
end.
Объяснение кода листинга программы
- Объявление переменных:
a,s,b,iтипа integer.
- Начало блока кода:
begin.
- Цикл for перебирает значения от 1 до 3 включительно:
for i := 1 to 3 do.
- Ввод числа с клавиатуры и сохранение его в переменную
a:read(a).
- Проверка, является ли число
aотрицательным:if a < 0 then.
- Если число
aотрицательное, то увеличиваем счетчик отрицательных чисел на 1b += 1.
- Суммирование введенных чисел:
s += a.
- Окончание блока кода:
end.
- Вывод результатов:
writeln('Сумма ', s, ' Кол-во отрицательных элементов ', b).
- Окончание программы:
end..