Помогите с заданием. Наберите на Qbasic.
1. Найти сумму элементов массива, кратных числу К.
2. Найти сумму элементов массива с k1-го и k2-ой, где k1 и k2 вводятся с клавиатуры.
3. Найти минимальный элемент массива и его номер.

Нужно очень срочно!

dim a(100)input"введите число k";kfor i=1 to 100a(i)=int(RND(1)*100):print a(i);      if a(i) mod k=0 then s=s+a(i)nextprint "Сумма=";send======================dim a(1000)input k1input k2for i=1 to 1000a(i)=RND(1)nextfor i=k1 to k2s=s+a(i)nextprint send=======================dim a(1000)for i=1 to 1000a(i)=RND(1)print a(i)nextmin=9999999for i=1 to 1000if a(i)<min then n=iif a(i)<min then min=a(i)nextprint min, nend