Добрый день. Помогите пожалуйста решить две задачи…

№1DATA 11,12,14,9,7,6,11,-20,55,333,222,111,11,900,-100,23,16,17,30,21,22,24,55,4444,500DIM A (25) FOR I=1 TO 25READ A (I) PRINT A (I) NEXTFOR I=1 TO 25 FOR J=1 TO 24IF A (J) imin THEN s=s+a (i): k=k+1NEXT isr=s / kPRINTPRINT "imin"; iminPRINT "Sr"; sr