Ввести с клавиатуры 10 чисел и найти сумму неотрицательных из них и произведение отрицательных
Ввести с клавиатуры 10 чисел и найти сумму неотрицательных из них и произведение отрицательных
Гость
Ответ(ы) на вопрос:
Гость10 CLS 15 S=1
20 INPUT "Введите размерность";N 30 FOR I=1 TO N
40 INPUT "Введите число";A(I)
50 NEXT I
60 FOR I=1 TO M
70 IF A(I) >0 THEN M=M+A(I) ELSE S=A(I)*S
80 NEXT I
90 PRINT S 95 PRINT M
100 END
Не нашли ответ?
Похожие вопросы