
Савватий
7 год назад
Решите задачу на языке C++ или на Паскале
Заданы массивы A[n] и B[m]. Получить массив С[n+m], расположив в начале его элементы массива А, а затем – элементы массива В.
ОТВЕТЫ

Vanudbyuv
Jul 17, 2019
{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.
259
Смежные вопросы: