Переделать массив Q(K) в массив F(J), убрав из него отрицательные и нулевые элементы и поделив положительные элементы на значение максимального элемента массива

Вывести новый массив F(J). (значения переменных считать произвольными)

INPUT k
DIM q(k)
FOR i=1 TO k 
INPUT"vvedite element ",q(i)
NEXT
max=q(1)
FOR i=1 TO k
IF q(i)>max THEN max=q(i)
NEXT
PRINT "max=";max
FOR i=1 TO k
IF q(i)>0 THEN j=j+1:f(j)=q(i)/max
NEXT
FOR i=1 TO j
PRINT f(i);" ";
NEXT

автор: кот Бегемот