подсчитать сколько раз встретилось каждое из чисел Х - бейсик

[Аля Самойлова]

составить программу вычисления и выдачи на печать произведения(или суммы) n элементов бесконечного числового ряда у=1^2+2^3+3^4+4^5+...

CLS
REM “ПРОГРАММА К ЗАДАЧЕ НА СУММУ”
INPUT N
A=1: S=0
FOR I=1 TO N
S=S+A
A=A^(A+1)
NEXT A
PRINT S
END

CLS
REM “ПРОГРАММА К ЗАДАЧЕ НА ПРОИЗВЕДЕНИЕ”
INPUT N
A=1: P=1: С=1
FOR I=1 TO N
A=С^(С+1)
С=С+1
P=P*A
NEXT A
PRINT P
END

имеется массив а из n произвольных чисел,среди которых есть положительные ,отрицательные и равные нулю.Напечатать в обратном порядке все положительные элементы массива.например,если а={2,4,-9,5,6,-3,2},результат : 2,6,5,4,2.

INPUT N
DIM A(N)
FOR I=1 TO N
IF A(I)>0 THEN A(I)=A(1)
NEXT A(I)
PRINT A(N)
END

[Sazary]

1.

CLS
REM “ПРОГРАММА К ЗАДАЧЕ НА СУММУ”
INPUT N
S = 0
FOR I = 1 TO N
S = S + I ^ (I + 1)
NEXT I

PRINT S
END

2.

CLS
REM “ПРОГРАММА К ЗАДАЧЕ НА ПРОИЗВЕДЕНИЕ”
INPUT N
S = 1
FOR I = 1 TO N
S = S * (I ^ (I + 1))
NEXT I

PRINT S
END

3. У вас написано:

Напечатать в обратном порядке

Да и массив вы не вводите.

CLS
INPUT n
DIM A(n)
FOR i = 1 TO n
 INPUT A(i)
NEXT i
PRINT
FOR i = n TO 1 STEP -1
 IF A(i) > 0 THEN
  PRINT A(i)
 END IF
NEXT i

-------------------------
Аля Самойлова, вы абсолютно не следите за переменными, которые используете.
Например, в первых двух программах, счетчик в цикле i, а используете A.

[Аля Самойлова]

ЗАБЫЛА ВСЕ КАК ДЕЛАЕТСЯ.. В ШКОЛЕ-ТО ЭТО ДЕЛО ХОРОШО ПОНИМАЛА..
СПАСИБО, Sazary-Профессионал:-*