INPUT "vvedite razmernoct massiva:"; M
DIM A(M)
S = 0
FOR I = 1 TO M
INPUT "Vvedite znachenie massiva:"; K
A(I) = K
NEXT I
REM Vivodim na pechat
FOR I = 1 TO M
PRINT "Znachenie massiva "; I; "="; A(I)
NEXT I
FOR I = 1 TO M
IF A(I) < 0 AND (INT(A(I)/2) <> A(I)/2) THEN S = S + ABS(A(I))
IF INT(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