{* Задача22 *}

REM basic

' Заменить положительные элементы одномерного массива на их сумму


CLS
INPUT "Введите число элементов массива"; n
Dim  a(n)
S=0
For i=1 To n
PRINT "Введите а("; i; ")"
INPUT а(i)
Next  i
For i=1 To n
PRINT a(i);
Next i
PRINT
For i=1 To n
If a(i)>0 Then S=S+a(i) 
Next i
For i=1 To n
If a(i)>0 Then a(i)=S 
Next i
For i=I To n
PRINT a(i);
Next i
End