{* Задача109 *}

REM basic

' Найти сумму элементов массива, больших квадрата первого элемента этого массива.


CLS
RANDOMIZE TIMER
INPUT "kol-vo elementov massiva-"; n
Dim a(n)
PRINT "massiv:"
For i = 1 To n
    a(i) = FIX(100 * RND(1) - 30)
    PRINT a(i);
Next
PRINT
k = a(1) ^ 2
For i = 2 To n
    If a(i) > k Then s = s + a(i) Else p = p + 1
Next
PRINT "summa:"; s
If p = (n - 1) Then PRINT "net takih elementov!" Else PRINT "summa:"; s 
End