INPUT "vvedite razmernoct massiva:"; M
INPUT "Vvedite znachenie massiva"; I, K
DIM A(M)
S = 0
FOR I = 1 TO M
A(I) = K
NEXT I
FOR I = 1 TO M
PRINT "Znachenie massiva "; I; "="; A(I)
IF A(I) < 0 THEN S = S + ABS(A(I)) ELSE
S = S + (I)
IF ABS(I / 2) <> (I / 2) THEN A(I) = A(I) ^ 2
NEXT I
PRINT "Summa="; S
FOR I = 1 TO M
PRINT "Znachenie massiva I="; A(I)
NEXT I
END
так правильно??