Вычислить значения функции при изменении переменной x в пределах от -4 до 4.5 с шагом изменения 1. Полученные значения сохраните в виде одномерного массива и выведите элементы массива на экран. Определите максимальный элемент массива и его индекс — QBasic(Бейсик)

Задана функция y=(5*cos3*x)-(6*sqr(x^2+4)

DIM y(10)
i = 0
FOR x = -4 TO 4.5 STEP 1
    y(i) = 5 * COS(3 * x) - 6 * SQR(x ^ 2 + 4)
    PRINT y(i); i
    i = i + 1
NEXT x
max = y(0)
kk = 0
PRINT
FOR k = 1 TO i
    IF max < y(k) THEN max = y(k): kk = k
NEXT k
PRINT y(k); kk