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

[Неясыть]

Люди помогите! Умираю! Осталось две пары а мне 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>

[Jahnerus]

Массивы
1

Код

program 1;
uses
 crt;
const
 n=15;
var
 a,m:array[1..n] of integer;
 i,j,k:byte;
 b:boolean;

begin
 clrscr;
 randomize;
 {Формируем массив М}
 for i:=1 to n do begin
   m[i]:=random(10)-5;
   write(m[i],'  ');
 end;
 k:=1;
 a[1]:=m[1];
 {Проверка на вхождение}
 for i:=1 to n do begin
   b:=false;
   j:=1;
   while j<=k do begin
     b:=(m[i]=a[j]);
     if b then break;
     j:=j+1;
   end;
   if not(b) then begin
     k:=k+1;
     a[k]:=m[i];
   end;
 end;
 writeln;
 for i:=1 to k do write(a[i],' ');
 readln;
end.

2

Код

program 2;
uses
 crt;
const
 n=20;
var
 a:array[1..n] of integer;
 i:byte;
 b:boolean;

begin
 clrscr;
 randomize;
 for i:=1 to n do begin
   a[i]:=random(100)-50;
   write(a[i],'  ');
 end;
 for i:=1 to n-1 do begin
   b:=a[i]<a[i+1];
   if not(b) then break;
 end;
 writeln;
 if b then writeln('Da')
 else writeln('Net');
 readln;
end.

ЭЭЭЭ.... чёто дальше задачи скучные ....аж лень писать !

Сообщение отредактировано: Jahnerus - 2.12.2004 0:33