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.

Answer 2

Нужно для Паскаль турбо

Answer 3

Как мне объяснили, если в вопросе не был указан язык программирования, претензии к решению не принимаются.

Answer 4

Ты написал паскаль я сделал на паскале. А какой паскаль надо ты не написал.