Дан массив, состоящий из n элементов. сформировать новый массив, элементами которого будут значения исходного массива не превышающие заданного значения z.

Пишу в QBasic
CLS
Массив уже создан и заполнен
DIM B(N)
FOR I= 1 TO N
IF A(I)<=Z THEN
B(K)=A(I)
K=K+1
END IF
NEXT I

Готово. Решение в файле. Если возникнут вопросы, пиши в комментарии.