Тема: Динамічні масиви
Всім доброго дня. Є проблема з вирішенням задачі про динамічний масив: Дані два масива: М1(n1)=(-5 , 10 , 21 , 35 ,-9 , 11 , 4 , 5) i M2(n2)=( 1, 5 , 10 , -3 , 4 ,-15 , 36, 6 , 11). Знайти їх об'єднання та результат записати в масив M3(n3). Вихідні дані ввести із текстового файлу. Потрібні дії оформити у вигляді підпрограми та отриманий результат вивести у текстовий файл
По звичайному написати програму можу, а от з використанням динамічного масиву, не до кінця розумію.
код програми без динамічного масиву:
program sd;
type
n1=array[1..8] of integer;
n2=array[1..9] of integer;
n3=array[1..17] of integer;
var
m1:n1;
m2:n2;
m3:n3;
i,j:integer;
ur,wi:text;
begin
assign(ur,'kurs9.txt');
reset(ur);
for i := 1 to 8 do read(ur,m1[i]);
write(m1[i]:4);
for i := 1 to 9 do read(ur,m2[i]);
write(m2[i]:4);
close(ur);
m3[j]:=m1[i]+m2[i];
writeln(m3:4);
assign(wi, 'hod.txt');
rewrite(wi);
write(wi,' Увесь масив:');
for i := 1 to 17 do
write(wi, m3[j]:5);
close(wi);
readln;
end.