Developing.ru

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

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