задание на QBASIC

Question

Задан массив чисел и число X. В массиве найти два члена, среднее арифметическое
которых наиболее близко к X. Вывести на печать их номера.

Виталий · Accepted Answer

DIM x AS DOUBLE, Delta AS DOUBLE 
DIM n AS INTEGER, i AS INTEGER, j AS INTEGER 
DIM i1 AS INTEGER, i2 AS INTEGER 
RANDOMIZE TIMER 
n = FIX(RND * 81) + 20 
DIM a(n) AS DOUBLE 
PRINT "Дан массив A("; n; "):" 
FOR i = 1 TO n 
 a(i) = RND * 198 - 99 
 PRINT USING "#####.##"; a(i); 
NEXT 
PRINT : PRINT 
INPUT "Введите X: ", x 
i1 = 1 
i2 = 2 
Delta = ABS((a(i1) + a(i2)) / 2 - x) 
FOR i = 1 TO n - 1 
 FOR j = i + 1 TO n 
 IF ABS((a(i) + a(j)) / 2 - x) < Delta THEN 
 i1 = i 
 i2 = j 
 Delta = ABS((a(i1) + a(i2)) / 2 - x) 
 END IF 
 NEXT 
NEXT 
PRINT "Номера элементов, среднее арифметическое которых наиболее" 
PRINT "близко к X: "; i1; ", "; i2 
END