В массиве, содержащем не более k элементов, определить номер элемента, корень из которого максимален

DIM a(1 TO 15)
DIM b(1 TO 15)
FOR i = 1 TO 15
    a(i) = INT(10 * RND(i)) - 5
NEXT i
max = -(10 ^ 10)
S = 0: k = 0
FOR i = 1 TO 15
    IF a(i) > 0 THEN
        b(i) = SQR(a(i))
        S = S + b(i)
        k = k + 1
    ELSE
        b(i) = a(i)
    END IF
NEXT i
PRINT max
Sr = S / k
PRINT Sr
FOR i = 1 TO 15
    PRINT a(i), b(i)
NEXT i
PRINT max

cls: max=-100
randomize timer
dim A(15)
 
for i=1 to 15
   A(i)=fix(rnd*51-25)' генерируем значения элементов массива
   if A(i)>0 then s=sqr(A(i)): k=k+1: sum=sum+A(i)' находим кол-во и сумму элементов, из которых извлекали корень
   if s>max then max=s' находим элемент, корень которого наибольший
next
sr=sum/k
 
for i=1 to 15
   color 2
   if A(i)>0 then
     if A(i)=cint(max^2) then color 4 else color 14' результат: если из числа извлекали корень-оно желтое, если корень из элемента наибольший, то элемент красный, остальные зелёные
   end if
   print A(i)
next
print "sr arif:"; sr
end

RANDOMIZE TIMER
INPUT "enter k: ", k
DIM a(k)
FOR i = 1 TO k
    a(i) = RND * 51 - 25
NEXT
FOR i = 1 TO k
    PRINT USING "#####.##"; a(i);
NEXT
FOR i = 1 TO k
    IF a(i) >= 0 THEN
        sum = sum + a(i): n = n + 1
        IF SQR(a(i)) >= max THEN max = SQR(a(i)): j = i
    END IF
NEXT
PRINT STRING$(80, 196)
IF j THEN PRINT "sqrt(a("; j; ")) - max ="; max
PRINT "average = "; sum / (n - (n = 0))

DIM a(1 TO 15)
DIM b(1 TO 15)
FOR i = 1 TO 15
    a(i) = INT(RND * 51 - 25) '
NEXT i
max = -100
S = 0: k = 0
FOR i = 1 TO 15
    IF a(i) > 0 THEN
        b(i) = SQR(a(i)): k = k + 1
        S = S + b(i)
        IF S > max THEN max = S
    ELSE
        b(i) = a(i)
    END IF
NEXT i
Sr = S / k
PRINT "Sr="; Sr
FOR i = 1 TO 15
    PRINT "a(i)="; a(i), "b(i)="; b(i)
NEXT i
SLEEP
PRINT "max"; max
END