Спасибо, что откликнулись.
Да, "IF R=0 THEN" - наверное это лишнее. (Просто смотрела подобную задачу, но там условие немного другое). Поэтому надо наверное просто:
REM Нахождение количества элементов массива, больше ср. арифм. всех его элементов
R=0
FOR i=1 TO M
IF Z(i)<S THEN R=R+1
NEXT i
PRINT "Количество элементов, больших "; S; "равно "; R