Расстояние между точками в n-мерном пространстве

Задача: 

При заданных координатах A1, A2, ..., An одной точки и координатах B1, B2, ..., Bn другой точки n-мерного пространства. Найти расстояние между ними по формуле sqrt(sqr(A1-B1) + ... + sqr(An-Bn)).

Описание переменных: 
  • a - коордитаны первой точки;
  • b - координаты второй точки;
  • n - количество измерений пространства;
  • sqr_sum - сумма квадратов разности между соответствующими координатами точек.
Программа на языке Паскаль: 

var 
	n, i:byte;
	a, b: array[1..10] of integer;
	sqr_sum: integer;
begin
	n := 0;
	while (n > 10) or (n < 1) do begin
		write('n = '); readln(n);
	end;
	sqr_sum := 0;
	for i:=1 to n do begin
		write('a',i,' = '); readln(a[i]);
		write('b',i,' = '); readln(b[i]);
		sqr_sum := sqr_sum + sqr(a[i] - b[i])
	end;
	writeln(sqrt(sqr_sum):10:3);
end.

Пример выполнения:

n = 2
a1 = 2
b1 = 0
a2 = 1
b2 = 0
     2.236
Примечания: 

По смыслу лучше сначала запросить все координаты первой точки, а потом второй.

Комментарии

По примечанию

var a, b: array[1..10] of real;
i, n: integer; sum: real;
begin
write('Ââåäèòå n:');
readln(n);
for i:=1 to n do
begin
write('a', i, '='); readln(a[i]);
end;
for i:=1 to n do
begin
write('b', i, '='); readln(b[i]);
end;
for i:=1 to n do
begin
sum:=sqrt(sqr(sum)+sqr(a[i]-b[i]));
end;
writeln(sum:10:3);
end.

Вычислить среднее

Вычислить среднее арифметическое отрицательных и среднее арифметическое положительных элементов массива x.Элементы массива вычисляются по формуле Xi=((i-10)^1/3)*cos(i),где i=1,2..20