MaxLuk_4

DIM N AS INTEGER, I AS INTEGER, M AS INTEGER, S AS LONG, D3C AS INTEGER, Z$
INPUT "Введите размерность массива: ", N
DIM A(N) AS INTEGER
PRINT "Введите элементы массива."
FOR I = 1 TO N
    PRINT "A("; I; ") = ";
    INPUT "", A(I)
    IF M < A(I) THEN M = A(I)
    S = S + A(I)
    IF A(I) MOD 3 = 0 THEN D3C = D3C + 1
    IF A(I) = 0 THEN Z$ = Z$ + STR$(I) + ","
NEXT I
PRINT "Максимальное число:"; M
PRINT "Сумма всех чисел массива:"; S
PRINT "Количество чисел, делящихся на 3:"; D3C
PRINT "Позиции нулей:"; Z$