Несколько задач на масивы, помогите пожалста Опции

[Неясыть]

Люди помогите! Умираю! Осталось две пары а мне 4 лабы здать надо. Очень срочно. Я больше ничего просить не буду! Честное слово. Я вас когдо-нибудь обманывал. А ты говоришь!!!!
Ну дак вот --- вот они:
массивы

1. сформировать новый массив из элементов массива М(15), встречающ. в этом массиве один раз
2. Определить представляют ли собой элементы массива А(20) возрастающую последовательность

матрицы

1. дана вещественная матрица М(9*8) преобразовать матрицу: поэлементно вычесть последнюю строку из всех строк, кроме последней
2. дана целочисленная матрица В(7*7). Найти номера столбцов, элементы каждого из кот. образуют возрастающую последовательность(b(1j)‹b(2j)..‹b(7j))

процедуры и ф-ции

1. в массивах А(5*7) и В(7*5) найти максимумы, поменять их местами
2. вычислить Z=(S1+S2)/(S1-S2), где S1-сумма положительных элементов массива А(70), S2-сумма отрицательных элементов массива В(60)... суммы вычислять в одной подрограмме

строки

1. дана строка символов. удалить из нее все кратные рядом стоящие одинаковые символы,оставив по одному(АААВВСС--›АВС)
2. дана строка символов до точки. Подсчитать в ней число латинских букв.

Я в вса верю люди......помогите .......с меня магар...........
Спасибо! можно на е-майл <censored>

[ShadowWatcher]

Строки
1

Код

Var
 i:Integer;
 s:String;
Begin
 ReadLn(s);
 i:=2;
 While (i < Length(s)) Do
   If s[i] = s[i-1] Then
     Delete(s,i,1)
   Else
     Inc(i);
 WriteLn(s)
End.

2

Код

Const
 BadChars = ['b','c','d','f','g','h']; {Сам допишешь...}
Var
 s:String;
 i,n:Integer;
Begin
 ReadLn(s);
 n:=0;
 For i:=1 To Length(s) Do
   Inc(n,Byte(s[i] In BadChars));
 WriteLn(n)
End.

Должно работать...

З. Ы.: опередил-таки

Сообщение отредактировано: ShadowWatcher - 2.12.2004 19:50