Помогите пожалуйста! Решить задачи по теме массивы а то чего-то решить не могу!

Даны N отрезков на прямой. Найти длину общей части всех этих отрезков.
Входныйе данные: сначало 1<n<100, а затем n пар чисел, где 1число - левая ( целая координата), а второе - правая( тоже целая).

To: arhimag
Поиск используй:
концы отрезков
Задача на массив

Еще одна задача : в кругу н человек начнем с первого ( по нумерации) и будем убивать каждого катого, вопрос кто выживет?

To: arhimag
В следующий раз буду наказывать. Ищи в поиске "Казнь" !!!

В поиске искал, не нашел задача вводиться массив м+н элементов и не использую других массивов надо поменять части массива от числа с m элементами с частью с n элементами. входные данные Н М и Н+М целых чисел.

Не понял... Допустим,
M = 4, N = 6
числа = <1, 2, 3, 4, 5, 6, 7, 8, 9, 10>

Что будет в результате?

будет: 5 6 7 8 9 10 1 2 3 4

Вложенный цикл устроит?

const
  m = 4;
  n = 6;
  arr: array[1 .. m+n] of integer =
    (1, 2, 3, 4, 5, 6, 7, 8, 9, 10);

var
  i, j, T: integer;

begin
  for i := 1 to m + n do
    write(arr[i]:4);
  writeln;

  for i := 1 to m do begin
    T := arr[1];
    for j := 2 to m+n do
      arr[j - 1] := arr[j];
    arr[m+n] := T;
  end;

  for i := 1 to m + n do
    write(arr[i]:4);
  writeln;
end.

Угу спасибо!! Огромное!!

Еще задача, котторую надо завтра сдать, но по ней хоть идея есть:
НА вход подаются числа Х Н и Н+1 целое число и надо вывести на экран значение многочлена: A[1]x^n + a[2]x^n-1+...+a[n+1]. D лонг инт не влезает!!!

в длинную арифметику влезет.

если A[i] <= _osn ,то ::

var b : TLong;

....
   b[0] := 1;
   b[1] := a[1];
   for i := 2 to n + 1 do
   begin
      MulLongShort(b,x,b);
      AddDigit(a[i]);
   end;

если A[i] - длинные ,то::

var b : TLong;

....
   b := a[1];
   for i := 2 to n + 1 do
   begin
      MulLongShort(b,x,b);
      MulLongTwo(b,a[i],b);
   end;

AddDigit взята из модуля volvo ,чуть чуть её переделаешь.
длинная арифметика