Решите на языке c++ или на паскале заданы массивы a[n] и b[m]. получить массив с[n+m], расположив в начале его элементы массива а, а затем – элементы массива в.
{Pascal} var a:array[1..100] of integer; b:array[1..100] of integer; c:array[1..200] of integer; i, n, m: integer; begin write('Размер массива A: '); readln(n); write('Размер массива B: '); readln(m); writeln('Массив A:'); for i:=1 to n do begin write('A[',i,'] = '); readln(a[i]); end; writeln('Массив B:'); for i:=1 to n do begin write('B[',i,'] = '); readln(b[i]); end; for i:=1 to n do c[i]:=a[i]; for i:=n+1 to n+m do c[i]:=b[i-n]; writeln('Массив C:'); for i:=1 to n+m do write(c[i]:4); end.
var
a:array[1..100] of integer;
b:array[1..100] of integer;
c:array[1..200] of integer;
i, n, m: integer;
begin
write('Размер массива A: ');
readln(n);
write('Размер массива B: ');
readln(m);
writeln('Массив A:');
for i:=1 to n do begin
write('A[',i,'] = ');
readln(a[i]);
end;
writeln('Массив B:');
for i:=1 to n do begin
write('B[',i,'] = ');
readln(b[i]);
end;
for i:=1 to n do
c[i]:=a[i];
for i:=n+1 to n+m do
c[i]:=b[i-n];
writeln('Массив C:');
for i:=1 to n+m do
write(c[i]:4);
end.