Попогите Из двух векторов x={x1, x2, …, x16} и y={y1, y2, …, y16} определить тот, у которого больше длина.Паскаль,через массив.
Ответы на вопрос
Ответил DonPedro80
0
// 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.
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.
Ответил nikitazhuravle3
0
Нужно для Паскаль турбо
Ответил DonPedro80
0
Как мне объяснили, если в вопросе не был указан язык программирования, претензии к решению не принимаются.
Ответил DonPedro80
0
Ты написал паскаль я сделал на паскале. А какой паскаль надо ты не написал.
Новые вопросы