массивы

[legita]

даны два вектора: A=(7,11,0,-1,9,8,0,-2),B=(4,12,0,7,11,2,7,8).определить длины векторов.выдать на печать тот вектор,который имеет наибольшую длину.

[p51x]

http://programmersforum.ru/forumdisplay.php?f=29

[rubius2008]

da:=0; db:=0;
for i:=1 to 8 do begin
  da:=da+sqr(a[i]);
  db:=db+sqr(b[i]);
end;
da:=sqrt(da); db:=sqrt(bd);
if  da>db then writeln('Dlina A: ',da)
else if db>da then writeln('Dlina B: ',db);