ввести с клавиатуры 10 чисел и найти сумму неотрицательных из них и произведение...

Question

ввести с клавиатуры 10 чисел и найти сумму неотрицательных из них и произведение отрицательных

Answer 1

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