Дан массив размерности M. Найти в нём минимальный  элемент, 
определить его порядковый номер. Вычислить количество нулей в массиве.   Visual Basic 

INPUT "m - ", mDIM a(m)RANDOMIZE (TIMER)FOR i = 1 TO ma(i) = INT(RND * 20)PRINT a(i);NEXT iPRINTmin = a(1)imin = 1FOR i = 2 TO mIF a(i) < min THEN   min = a(i)   imin = i   END IF   IF a(i) = 0 THEN   k = k + 1   END IF   NEXT iPRINT min; imin; k