Поиск и сортировка

[junkie]

Добрый день!
Помогите с программами!Заранее спасибо!

1:

Дана целочисленная таблица A[1:100].Подсчитать наибольшее число идущих в ней подряд одинаковыз элементов.

2:

Упорядоченный по невозрастанию массив B(m) преобразовать в упорядоченный по возростанию,оставив по одному в каждой группе совпадающих элементов.

[Stilet]

Помочь в чем? Написать все за тебя?

[junkie]

Нет
Непонятно,с помощью чего делать подсчеты?
мне нужен фрагментик программы

[Stilet]

i:=1 
while i<=100 
 q:=a[i]; maxi:=0;
 {Увеличиваем счетчик повторений пока они есть}
 while q=a[i] do begin inc(i);inc(maxi); end;
 Терь сравнивай maxi и максимальное
end {While 1}

Смысл уловил?