Question

Пожалуйста помогите решить задачу на языке Pascal. задача 2

Answer 1

const
  nm = 50; {максимальная длина массива}

var
  i, n, m: integer;
  a,b,c: array[1..nm] of integer;

begin
  Write('Введите количество элементов в массиве a: ');
  Readln(n);
  Write('Введите элементы массива a через пробел ');
  for i := 1 to n do
  begin
    Read(a[i]);
    c[i]:=a[i]
  end;
  Write('Введите количество элементов в массиве b: ');
  Readln(m);
  Write('Введите элементы массива b через пробел ');
  for i := 1 to m do
  begin
    Read(b[i]);
    c[i+n]:=b[i]
  end;
  Write('Результирующий массив ');
  for i:=1 to m+n do Write(c[i]:4)
end.

Тестовое решение:

Введите количество элементов в массиве a: 5
Введите элементы массива a через пробел 7 -6 0 23 11
Введите количество элементов в массиве b: 4
Введите элементы массива b через пробел 13 0 -14 8
Результирующий массив    7  -6   0  23  11  13   0 -14   8

Answer 2

спасибо большое))

Answer 3

Пожалуйста