Дан одномерный целочисленный массив А, состоящий из N элементов, N - заданное натуральное число. Каждую пару элементов массива (А1,Аn), (А2,Аn-1) и т.д., будем считать координатами некоторой точки в декартовой системе координат. Подсчитать количество таких точек, принадлежащих окружности радиусом R с центром в начале координат(Qbasic программа + блоксхема)

Предыдущий
вопрос Следующий
вопрос

10 SCREEN 12
20 RANDOMIZE TIMER
30 DIM A(10)
40 DIM count
50 PRINT "Enter the radius of the circle: ";
60 INPUT R
70 count = 0
80 FOR i = 1 TO 10
90 A(i) = INT(RND * 100) 'random integers between 0 and 100
100 NEXT i
110 CIRCLE (0, 0), R
120 FOR i = 1 TO 10
130 FOR j = 10 TO 1 STEP -1
140 IF i < j THEN
150 x = A(i)
160 y = A(j)
170 IF SQR(x^2 + y^2) <= R THEN
180 count = count + 1
190 PSET (x, y)
200 END IF
210 END IF
220 NEXT j
230 NEXT i
240 PRINT "Number of points on the circle: "; count
250 END

Блоксхема

НачалоВвод радиуса окружности RИнициализация переменной count = 0Генерация массива случайных целых чисел A(10) от 0 до 100Отображение окружности с центром в начале координат и радиусом RДля i от 1 до 10
Для j от 10 до 1 с шагом -1
Если i < j, то
Присвоить x = A(i) и y = A(j)Если sqrt(x^2 + y^2) <= R, тоУвеличить count на 1 и отобразить точку (x, y) на экранеВывод количества точек на окружности: countКонец