xD, Я кажется могу решить 1ю задачу. Вот только на QБэсике ))). Со школы помню.
Вот если правильно задачу понял. алгоритм должет быть одинаковый наверное с паскалем.
DIM a(50)
FOR I = 1 TO 50
INPUT a(I)
NEXT
s = 0
FOR x = 1 TO 50
IF ABS(a(1)) < SQR(a(x)) THEN s = s + a(x)
NEXT
PRINT "summa 4isel="; s
Если понятно и вторую кажется могу ))