Паскаль

[Jondeer]

Неполучается написать программу. Помогите пожалуйста!!!
Задача! При заданных абциссах x1,x2,x3...xn и ординатах y1,y2,y3...yn точек плоскости XOY определить у какого числа этих точек положительна как абцисса,так и ордината, а также найти средннюю ординату всех точек из числа заданных.

[Maslan]

n замени на количество точек и заполни массивы X и Y.

Const 
X:array[1..n] real=(1,2,3,4,5,6,7,8,9,10);
Y:array[1..n] real=(1,2,3,4,5,6,7,8,9,10);
var i,count:integer;
 med_ord:real;
 begin
  count:=0;
  For i:=1 to n do
   if (X[i]>0)AND(Y[i]>0) then inc(count)
 WriteLn('Точек в первой четверти: ',count);
 med_ord:=0;
  For i:=1 to n do
   Med_ord:=med_ord+Y[i];
 Med_ord:=Med_ord/n
 WriteLn('Средняя ордината : ',Med_ord);
 end;

[_Dmitry]

Что не получается то?

определить у какого числа этих точек положительна как абцисса,так и ордината

(x >= 0) and (y >= 0)

средннюю ординату всех точек

(сумма всех y)/n

[Jondeer]

Спосибо большое сейчас попробую!

[puporev]

Для _Dmitry

(x >= 0) and (y >= 0)

=0 не пойдет, т.к. 0 - число не положительное.