QBasic одномерный массив

[Shev]

Помогите пожалуйста! В среду сдавать зачет!
Дан массив Х (N). Записать в массив Y элементы массива Х, имеющие четные индексы.
Нужно программку написать! Заранее спасибо!

[Naeel Maqsudov]

Код: Выделить всё

print "Введите N:";
input N
'заполнение массива с клавиатуры
dim x(n)
for i=1 to n
  print "Введите x(";i;"):";
  input x(i)
next
'теперь массив X - дан. Заполняем Y
m=int(n/2)
dim y(m)
for i=1 to m
  y(i)=x(i*2)
next
'вывод результата
for i=1 to m
  print "y(";i;")=";y(i)
next