Составте программу ввода с клавиатуры элементов массива а[1..10] и вывода на экран элементов с чётными индексами. и составте программу которая заполняет массив а[1..10] случайными целыми числами в диапазоне от 0 до 2 и выводит на экран количество элементов равных 1.

Dim a(10)
For i=1 to 10
Input a(i)
next
For i=2 to 10 step 2
Print a(I)
next

Вторую не помню как решать сама попробуй начало вот:
Randomize timer
dim a(10)
For i=1 to 10
a(i)=не помню че то там с RND
next
и тут не помню)