Паскаль, массивы, наработки есть.

[Otre4eHHbIu]

program lvl4;
const n= 10;
type mas=array[1..n] of integer;
var
	x,y: mas;
	t,a,srx,sry: real;
	i,b: integet;
begin
		sry:=0;
		srx:=0;
		writeln('Input t');
		readln (t);
		writeln('Input b')
		readln (b);
		writeln('VVedite x[i],y[i]');
		for i:= 1 to n do read(x[i], y[i]);
			a:= sqrt(sqr(x[i]-x[b])+sqr(y[i]-y[b]));
			srx:=x;
		if a>t then
			writeln('S ot x[i], y[i] do [b], y[b] > T pri i= ');
			writeln(i);
end

И собственно сама задача:
Даны два массива X и Y, состоящие из N элементов каждый. Каждая пара элементов вида (X[i], Y[i]) задает абсциссу и ординату одной (i-той) точки на плоскости X0Y(всего точек N). Задана также некоторая базовая точка с координатами X[b], Y[b]. Определить, в каком числе случаев расстояние между очередной точкой (из числа N точек) и базово точкой превышает заданную величину T, и найти средние координаты для заданной совокупности точек, исключая базовую.

Собственно прошу помощи в проверке первой части задачи + решение второй части про средние координаты...очень прошу оставлять комментарии к написанному, если по вашему это может быть непонятно мне.

[Sazary]

program lvl4;
const n= 10;
type mas=array[1..n] of integer;
var
	x,y: mas;
	t,a,srx,sry: real;
	i,b: integer;
begin
sry:=0;
srx:=0;
writeln('Input t');
readln (t);
writeln('Input b');
readln (b);
writeln('VVedite x[i],y[i]');
for i:= 1 to n do
 readln(x[i], y[i]); 

for i:=1 to n do
 begin
 a:= sqrt(sqr(x[i]-x[b])+sqr(y[i]-y[b]));
 if a>t then
  writeln('S ot x[i], y[i] do [b], y[b] > T pri i= ', i);
 if i<>b then  
  begin
  srx := srx + x[i]; // средние координаты
  sry := sry + y[i];
  end;
 end;

writeln;
srx := srx/(n-1);
sry := sry/(n-1);
writeln('Sred x: ',srx:5:2);
writeln('Sred y: ',sry:5:2);

readln;
end.

[Otre4eHHbIu]

можно немного подробнее насчет
srx := srx + x[i];
sry := sry + y[i];

и

srx := srx/(n-1);
sry := sry/(n-1);

и огромное спасибо за помощь.

[Sazary]

можно немного подробнее насчет

Ну ведь вам нужны средние координаты. Вот мы их и вычисляем (сумма всех точек на их количество).