Очень помощь нужна) Как можно быстрее)

Две программки составить на языке qBasic.

1. Дан массив из 20 элементов. Найти максимальное из чисел, попавших в заданный интервал [ р, q ] и определить его номер.
Результат распечатать в виде:
P=
Q=
MAX=
imax=

2. В массиве из 50 элементов определить произведение элементов с четными индексами, максимальный элемент. Построить новый массив из элементов, величина которых >p.