Question

Задача 1 Найти произведение положительных, сумму и количество отрицательных из 10 введенных целых значений. USES Crt; VAR X: INTEGER; S, K, P: INTEGER; I: BYTE; Begin P:=1; S:=0; K:=0; FOR I:=1 TO 10 DO Begin WriteLn(‘Введите ‘,I,’ -е значение’); ReadLn(x); IF X>0 Then P:=P*X; { произведение положительных } IF X<0 Then Begin S:=S+X; { сумма отрицательных } K:=K+1; { количество отрицательных } End; End; WriteLn(‘ Произведение положительных значений = ‘,p); WriteLn(‘ Сумма отрицательных значений = ‘,s); WriteLn(‘ Количество отрицательных значений = ‘,k); END.

Answer 1

Ответ:

Объяснение:

как то так

Answer 2

Данный код на языке программирования Pascal решает задачу нахождения произведения положительных чисел, суммы и количества отрицательных чисел из 10 введенных целых значений. Для решения задачи используются переменные x, s, k и p. Переменная x используется для хранения введенного значения. Переменная s используется для хранения суммы отрицательных чисел. Переменная k используется для хранения количества отрицательных чисел. Переменная p используется для хранения произведения положительных чисел. В цикле от 1 до 10 происходит ввод числа x с помощью функции readln(). Затем проверяется значение переменной x. Если x больше 0, то значение переменной p умножается на x (находится произведение положительных чисел). Если x меньше 0, то значение переменной s увеличивается на x (находится сумма отрицательных чисел) и значение переменной k увеличивается на 1 (находится количество отрицательных чисел). После окончания цикла выводятся результаты: произведение положительных чисел, сумма отрицательных чисел и количество отрицательных чисел. Пример работы программы: Введите 1-е значение 5 Введите 2-е значение -3 Введите 3-е значение 2 Введите 4-е значение -1 Введите 5-е значение 4 Введите 6-е значение -2 Введите 7-е значение -5 Введите 8-е значение 3 Введите 9-е значение 6 Введите 10-е значение -4 Произведение положительных значений = 120 Сумма отрицательных значений = -15 Количество отрицательных значений = 5