Даны два произвольные одномерные массивы целых чисел М1 и М2 с одинаковым количеством...

Var m1,m2,m3:array of integer;
i,n:integer;
begin
write('Введите размер массивов');
readln(n);
setlength(m1,n);
setlength(m2,n);
setlength(m3,n);
//Заполнение массивов
for i:=0 to n-1 do begin
    m1[i]:=random(21)-10;
    m2[i]:=random(21)-10;
    m3[i]:= m1[i]+m2[i];
end;
//Вывод массивов
for i:=0 to n-1 do write(m1[i]:4);
writeln;
for i:=0 to n-1 do write(m2[i]:4);
writeln;
for i:=0 to n-1 do write(m3[i]:4);
writeln;
end.

Тестовое решение:
Введите размер массивов 10
   7 -10   9 -4   8 -6 10   4   6   2
10 -3 -2 -7   1   9   2   3   5 -6
17 -13   7 -11   9   3 12   7 11 -4