Question

Попогите Из двух векторов x={x1, x2, …, x16} и y={y1, y2, …, y16} определить тот, у которого больше длина.Паскаль,через массив.

Answer 1

// PascalABC.NEt 3.4

begin
  var x:=ArrRandom(16,-50,50); x.Println;
  var y:=ArrRandom(16,-50,50); y.Println;
  var s1:=x.Select(p->p*p).Sum;
  var s2:=y.Select(p->p*p).Sum;
  if s1>s2 then Writeln('Вектор x длиннее')
  else if s1<s2 then Writeln('Вектор y длиннее')
  else Writeln('Длины векторов одинаковы')
end.