INPUT "vvedite nachalo intervala ", x1
INPUT "vvedite konec intervala ", x2
FOR x = x1 TO x2
IF x >= 1 THEN z = COS(x) ELSE z = ABS(x)
y = x ^ 3 - LOG(x) + COS(x) - z
sum = sum + y
NEXT
sred = sum / (x2 - x1 + 1)
PRINT "srednee="; sred
Тестирование выполнено в программе QB64 ( Скачать )