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

+ 0 -

Мельсида1

02 июля 2013 г., 2:44:33 (10 лет назад)

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

+ 0 -

Маша1957

02 июля 2013 г., 4:58:27 (10 лет назад)

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

+ 0 -

Ilya123344545

02 июля 2013 г., 7:52:11 (10 лет назад)

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

+ 0 -

моряк

02 июля 2013 г., 10:34:34 (10 лет назад)

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

+ 0 -

лянадзабаева

02 июля 2013 г., 13:17:00 (10 лет назад)

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

+ 0 -

Slavashabanov

02 июля 2013 г., 15:20:01 (10 лет назад)

с массивами