Прошу прощения за надоедливость, но можно я напишу Вам, grelly, окончательный вариант программы. А Вы посмотрите, может опять где ошибки. ??? Заранее благодарна!
CLS
INPUT "Введите количество элементов М ="; М
DIM Z(M)
PRINT "Исходный массив"
FOR i=1 TO M
INPUT Z(i)
NEXT i
FOR i=1 TO M
PRINT Z(i)
NEXT i
PRINT
REM Вычисление ср. арифм. всех элементов массива
C=0 : k=0
FOR i=1 TO M
INPUT Z(i)
IF Z(i)<0 THEN C=C+Z(i) : k=k+1
NEXT i
S=C/k
REM Нахождение количества элементов массива, больше ср. арифм. всех его элементов
R=0
FOR i=1 TO M
IF Z(i)<S THEN R=R+1
NEXT i
PRINT "Количество элементов массива, больших ср. арифм. всех его элементов равно"; R
REM Нахождение минимального элемента
Zmin=Z(0)
FOR i=1 TO M
IF Z(i)< Zmin THEN Zmin=Z(i)
NEXT i
REM Вычитаем из всех элементов наименьший элемент
PRINT "Преобразованный массив"
FOR i=1 TO M
Z(i)=Z(i) - Zmin
PRINT Z(i)
NEXT i
END