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

[drsmoll]

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

[Lapp]

А у самого какие идеи? Сделал что-нить? начал?..
Покажи..

[drsmoll]

А у самого какие идеи? Сделал что-нить? начал?..
Покажи..

идей масса, вот тока бред выходит...

program zad;
uses crt;
var
i:integer;
Lx,Ly,L,K:real;
const
x:array[1..10] of integer = (1,2,3,4,5,6,7,8,9,10);
y:array[1..10] of integer = (1,1,1,1,1,1,1,1,1,1);
     procedure S(a:array of integer);
      begin
      for i:=1 to 9 do
         begin
         L:= Sqr(a[i])+Sqr(a[i+1]);
         end;
       K:= Sqrt(L);
      end;
begin
S(x);
S(y);
if Lx > Ly then writeln ('Big X',Lx)
else writeln ('Big Y',Ly);
end.

М

Используй теги, пожалуйста (выделить текст, вырать нужный тип в меню CODE) -- Лопарь