С. наберите на qbasic. 1. найти сумму элементов массива, кратных числу к. 2. найти сумму элементов массива с k1-го и k2-ой, где k1 и k2 вводятся с клавиатуры. 3. найти минимальный элемент массива и его номер. нужно !

Dim a(100)
input"введите число k";k
for i=1 to 100
a(i)=int(RND(1)*100):print a(i);      
if a(i) mod k=0 then s=s+a(i)
next
print "Сумма=";s
end

dim a(1000)
input k1
input k2
for i=1 to 1000
a(i)=RND(1)
next
for i=k1 to k2
s=s+a(i)
next
print s
end

dim a(1000)
for i=1 to 1000
a(i)=RND(1)
print a(i)
next
min=9999999
for i=1 to 1000
if a(i)<min then n=i
if a(i)<min then min=a(i)
next
print min, n
end