{* Задача292 *}

REM basic

' Дан массив А(10)элементы которого целые числа из интервала (0;9)Вывести А(10) на экран.Заменить четные элементы на число -2.



CLS
Dim a(10)
RANDOMIZE TIMER
For i = 1 To 10
        a(i) = INT(RND * 9)
        PRINT a(i);
Next i
PRINT
For i = 1 To 10
        If i Mod 2 = 0 Then a(i) = -2
        PRINT a(i);
Next iD a
End