Qbasic задачка не из легких

[O2Kanobe]

На плоскости (х,у) задан ряд точек {m1(x1,y1)...mn(xn,yn)},n- количество точек. Исходные данные - массив абсцисс (х1...хn) и ординат (у1...уn) - задаются самостоятельно в соответствии с поставленной задачей. Точки необходимо представить графически в плоскости (х,у).
Составить программу с использованием процедуры.
Найти точку m(x*,y*)координаты которой определяются, как:
Среднее арифметическое отрицательных абсцисс, среднее арифметическое отрицательных ординат. N=9.

Вот так вот.

[ZX Spectrum-128]

Исходные данные - массив абсцисс (х1...хn) и ординат (у1...уn) - задаются самостоятельно в соответствии с поставленной задачей

А какая у нас поставленная задача?

[O2Kanobe]

Составить программу с использованием процедуры.
Найти точку m(x*,y*)координаты которой определяются, как:
Среднее арифметическое отрицательных абсцисс, среднее арифметическое отрицательных ординат. N=9.

Должно получается что то типо этого ( на картинке)
тык

[ZX Spectrum-128]

O2Kanobe
Принципиально не стал смотреть приложенное фото. Неужели было трудно отредактировать фото?

[O2Kanobe]

Исправил, прошу прощения за неряшливость и недобросовестное отношение к вашему труду.

[ZX Spectrum-128]

Да перевернуть надо было изображение.
В той программе нет формул или правил, по котором надо заполнить массивы. От балды, что ли?

[O2Kanobe]

Не от балды, а от незнания. Вы в силах помочь??

[ZX Spectrum-128]

Dim x(1 To 9) As Integer
Dim y(1 To 9) As Integer
Dim i As Integer

For i=-4 To 4 
	x(i)=i
	y(i)=Cos(x(i))-1
Next

sumA=0
sumO=0
qA=0
qO=0	
For i=-4 To 4 
	If x(i)<0 Then
		sumA=sumA+x(i)
		qA=qA+1
	EndIf
	If y(i)<0 Then
		sumO=sumO+y(i)
		qO=qO+1
	EndIf	
Next
SumASr=sumA/qA
SumOSr=sumO/qO

Screen 19,32


Window (-10,-10)-(10,10)
For i=-4 To 4
	PSet (x(i),y(i)),15
Next
Print SumASr,SumOSr
Sleep

[O2Kanobe]

Сильно. Не понятно правда ничего.

[ZX Spectrum-128]

Все согласно техзаданию