2 задачи задачи на массив и индуктивность Опции

[Black Monarh]

Дорогие программисты буду с вами откровенен, я знаю что сдесь никто не будет делать за меня ничего!!
Но думаю что вы люди и поймете меня!
Я студет первого курса, думаю многие знают что 1 семестр самый сложный первая сессия и все такое!!
Меня мягко говоря выпирают, и как вы думаете почему?! ДА!! Был идиотом полнейшим!! нифига не делал думал а прокатит да не прокатила, так вот вишу я на волоске а внизу пропасть!!
У меня есть шанс остаться но сделать надо очень много... а времени почти нет..!!
Помогите мне пожалуйста спасите мою душу..
Беда вот в чем:
1. Мне нужно из данного массива (а массив мой 2 на 50, где каждая строка задает координату точки) так вот нужно убрать из этого массива одинаковые координаты т е одинаковыые строки!!


2. У меня есть последовательность чисел, нуйти длину законченного отрезка числовой последовательности, при этом свойсво отрезка с максимальным размахом значений элементов
P.S. размах - разность максимального и минимального элемента в добавок отрезок знакочередующийся

[volvo]

Ну, вот тебе пример для массива целых, хотя по-моему, я уже выкладывал на форуме нечто подобное... Подкорректируй это для своего случая.

const
  max_n = 10;
  arr: array[1 .. max_n] of integer =
    (1, 3, 7, 3, 9, 4, 2, 2, 3, 1);

var
  i, j, k, n: integer;
  found: boolean;

begin
  n := max_n;
  i := 2;
  while i <= n do begin

    found := false; j := 1;

    while (j < i) and (not found) do
      if arr[i] = arr[j] then found := true
      else inc(j);

    if found then begin
      for k := i + 1 to n do
        arr[k - 1] := arr[k];
      dec(n);
    end
    else inc(i)
  end;

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