OPTION BASE 1
n = 20
DIM a(n)
CLS
FOR i = 1 TO n
PRINT "Введите элемент массива "; i; " = ";
INPUT "", a(i)
NEXT i
CLS
min = a(1)
PRINT "Исходный массив:": PRINT
FOR i = 1 TO n
PRINT USING "#######"; a(i);
IF i MOD 10 = 0 THEN PRINT
IF a(i) < min THEN min = a(i)
NEXT i
PRINT : PRINT "Минимум массива = "; min: PRINT
PRINT "Массив результата:": PRINT
FOR i = 1 TO n
IF a(i) > 0 THEN a(i) = min
PRINT USING "#######"; a(i);
IF i MOD 10 = 0 THEN PRINT
NEXT i
PRINT
INPUT "", x
END

CLS
REM исходное произведение 1
P=1
REM исходная сумма 0
s=0
REM исходное количество 0
INPUT n
INPUT m
DIM a(n,m)
FOR i=1 TO n
FOR j=1 TO m
INPUT a(i,j)
IF a(i,j) >1.5 AND a(i,j) <3.2 THEN p=p*a(i,j); s=s+a(i,j); n=n+1
NEXT j
NEXT i
PRINT "произведение равно"; p
PRINT "сумма равна"; s
PRINT "количество равно"; n
END