Даны координаты концов N - мерного отрезка (точки a и b). Найти его длину и наибольшую из координат точки а - QBasic

Формулировка задачи:

Пропустил пары и теперь не знаю, как составить программу

Решение задачи: «Даны координаты концов N - мерного отрезка (точки a и b). Найти его длину и наибольшую из координат точки а»

Листинг программы

CLS
OPTION BASE 1
INPUT "Enter N:", n%
REDIM a(n%), b(n%)
RANDOMIZE TIMER
FOR i% = 1 TO n%
  a(i%) = RND
  b(i%) = RND
NEXT i%
PRINT "a = [";
FOR i% = 1 TO n%
  PRINT a(i%);
NEXT i%
PRINT "]"
PRINT "b = [";
FOR i% = 1 TO n%
  PRINT b(i%);
NEXT i%
PRINT "]"
amax = a(1)
FOR i% = 1 TO n%
  l = l + (b(i%) - a(i%)) ^ 2
  IF a(i%) > amax THEN amax = a(i%)
NEXT i%
l = SQR(l)
PRINT "Length=", l
PRINT "max a=", amax
END

Объяснение кода листинга программы

В первой строке программы выводится сообщение Enter N:, а затем пользователь вводит значение N.
Затем программа выделяет память под массивы a и b размером n%.
Далее, с помощью цикла FOR генерируются случайные координаты для точек a и b.
После этого выводится список координат точек a в квадратных скобках, а затем список координат точек b в квадратных скобках.
Переменная amax инициализируется значением первой координаты точки a.
Следующий цикл FOR вычисляет длину отрезка, прибавляя квадрат разности каждой пары координат к переменной l.
Если текущая координата точки a больше значения переменной amax, то amax присваивается новое значение текущей координаты.
По завершении цикла, переменная amax содержит наибольшую из координат точки a.
Затем вычисляется длина отрезка по формуле l = sqrt(l) и выводится сообщение Length=, l.
Наконец, выводится сообщение max a=, amax.