{* Задача138 *}

REM basic

' В массиве заменить элементы с чётными номерами суммой нечётных элементов


CLS
RANDOMIZE TIMER
INPUT "vvedite m"; m
Dim a(m)
INPUT "vvedite nachala diapazona"; a
INPUT "vvedite konec diapazona"; b
If a > b Then SWAP a, b
For i = 1 To m
    a(i) = INT(RND * ABS(b - a + 1) + a)
Next
For i = 1 To m
    PRINT a(i);
Next
PRINT String$(80, 196)
For i = 1 To m
    If (a(i) And 1) = 1 Then s = s + a(i)
Next
For i = 1 To m
    If (i And 1) = 0 Then a(i) = s
Next
For i = 1 To m
    PRINT a(i);
Next
End