INPUT "Введите размерность массива", m
DIM mas(m)
FOR i = 1 TO m
PRINT "Введите mas["; i; "]"
INPUT mas(i)
NEXT i
MinEl = mas(1)
PRINT
PRINT "Исходный массив:"
PRINT "_________________________"
FOR i = 1 TO m
IF mas(i) < MinEl THEN MinEl = mas(i)
PRINT i, mas(i)
NEXT i
PRINT "_________________________"
PRINT "Минимальный элемент массива равен:"
PRINT "_________________________"
PRINT MinEl
PRINT "_________________________"
SrAr = 0
k = 0
FOR i = 2 TO m STEP 2
k = k + 1
SrAr = SrAr + mas(i)
NEXT i
SrAr = SrAr / k
PRINT "Среднее арифметическое четных элементов равно:"
PRINT "_________________________"
PRINT SrAr
PRINT "_________________________"
PRINT "Преобразованный массив:"
PRINT "_________________________"
FOR i = 1 TO m
mas(i) = mas(i) * MinEl
PRINT i, mas(i)
NEXT i
PRINT "_________________________"
END