к 22:00 (27.12.12) помогите написать программу на QBasic и блок-схему к задаче :

Question

Дан массив, содержащий 12 элементов, определить номер элемента с минимальным квадратом. Напечатать номер и значение этого элемента. 
Результат распечатать в виде: 
Массив: 
imin= 
MIN=

Жанна Водяницкая · Accepted Answer

RANDOMIZE TIMER 
DIM a(12) 
PRINT "array: "; 
FOR i = 1 TO 12 
 a(i) = FIX(RND * 101) - 50 
 PRINT a(i); 
NEXT 
PRINT 
imin = 1 
squaremin = a(1) * a(1) 
FOR i = 2 TO 12 
 square = a(i) * a(i) 
 IF square < squaremin THEN 
 squaremin = square 
 imin = i 
 END IF 
NEXT 
PRINT "imin: "; imin 
PRINT "min: "; a(imin)