Регистрация
lenafok83
10.12.2021 11:07
Информатика
Есть ответ 👍

Задача 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.

140
141
Посмотреть ответы 1

Ответы на вопрос:

shultz061
shultz061
4,5(99 оценок)

В интернете могут быть очень много мошейников или сайты в которых можно подхватить вирус . По зумму рабоотать безопасно

Популярно: Информатика