{* Задача158 *}

REM basic

' Записать в массив С номера положительных элементов массива R


CLS
INPUT "vvedite kolichestvo elementov massiva r "; n
Dim r(n), c(n)
For i = 1 To n
    PRINT "vvedite element"; i
    INPUT r(i)
Next
CLS
PRINT "massiv r"
For i = 1 To n
    PRINT r(i);
Next
For i = 1 To n
    If r(i) > 0 Then k = k + 1: c(k) = i
Next
PRINT
PRINT "nomera polozhitelnix elementov"
For i = 1 To k
    PRINT c(i);
Next
PRINT
PRINT "kol-vo elementov"
PRINT k;
End