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

пишу в QBasicCLSМассив уже создан и заполненDIM B(N)FOR I= 1 TO NIF A(I)<=Z THENB(K)=A(I)K=K+1END IFNEXT I

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