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

Question

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

---

Comments

А что тут решать? Определить массив размером в общее количество элементов, поместить туда первую последовательность и дописать "в хвост" вторую.

---

сможете сделать? )

---

Да это любой может сделать. Цикл по i от 1 до n с копированием, а потом цикл по i от 1 до m, с копированием, только в результирующем массиве индексы будут i+n

---

значиь не любой. Я информатику не понимаю я биолог поэтому и спрашиваю

---

Поверьте, это настолько примитивная задача, что её писать дольше, чем решать

---

так вы сможете мне ее решить?

---

Вам задавали по теме работа с множествами или с массивами?

---

с массивами

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

Comments

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

---

Пожалуйста