одномерный массив

[infernal110]

Всем добрый вечер! помогите плз с программой нужно:
Найти сумму двух одномерных массивов,массивы ввести с клавиатуры
Заранее всем БОЛЬШОЕ СПАСИБО!)

[Arhangel7]

var
a,b:array of integer;
i,x1,x2,n:integer;
begin
n:=0;
writeln(' vvedite razmernost''  1 massiva');
readln(x1);
SetLength(a,x1);
writeln('vvedite razmernost''  2 massiva');
readln(x2);
SetLength(b,x2);
writeln('vvedite ', x1,' cifr v 1 massiv');
for i:=0 to x1-1 do readln(a[i]);
writeln('vvedite ', x2,' cifr v 2 massiv');
for i:=0 to x2-1 do readln(b[i]);
for i:=0 to x1-1 do n:=n+a[i];
for i:=0 to x2-1 do n:=n+b[i];
end.

[infernal110]

что то она не работает,и я непойму что за оператор SetLength

[whatever]

Все работает, только перед "end." добавь

writeln(n);
readln;

Либо, если турбо паскаль, делай так:

const
  x1=5;
  x2=5;

var
a:array[0..x1] of integer;
b:array[0..x2] of integer;
i,n:integer;
begin
n:=0;
{writeln(' vvedite razmernost''  1 massiva');
readln(x1);
SetLength(a,x1);
writeln('vvedite razmernost''  2 massiva');
readln(x2);
SetLength(b,x2);}
writeln('vvedite ', x1,' cifr v 1 massiv');
for i:=0 to x1-1 do readln(a[i]);
writeln('vvedite ', x2,' cifr v 2 massiv');
for i:=0 to x2-1 do readln(b[i]);
for i:=0 to x1-1 do n:=n+a[i];
for i:=0 to x2-1 do n:=n+b[i];
writeln(n);
readln;
end.

P.S. setlength устанавливает длинну динамичкского массива.