массивы и подпрограммы, Проще наверна не бывает Опции

[drsmoll]

Помогите плиз... Не могу по поиску найти
Заданы 2 вектора X=(X1,...,Xm) Y(Y1,...Yn). Сравнить их длины и напечатать большую из них. Длину вектора вычислять в подрпограмме.

[volvo]

У тебя неверно считается сумма квадратов

У тебя тоже... Open Arrays всегда индексируются с 0...

[Lapp]

У тебя тоже... Open Arrays всегда индексируются с 0...

Верно, недогляд. Спасибо, volvo.

drsmoll, сделай тип для вектора. Вот так:

type
  tVector = array[1..10] of integer;
const
  x: tVector = (1,2,3,4,5,6,7,8,9,10);
  y: tVector = (1,1,1,1,1,1,1,1,1,1);
  
  procedure S(a:tVector);