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

[Неясыть]

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

Функции и процедуры
2

Код

uses
 crt;
type ma3x=array[1..70] of integer;
var a,b:ma3x;
 i,s1,s2:integer;
 z:real;

function sum(mas:ma3x; m:byte; k:integer):integer;
var
 s,j:integer;
begin
 s:=0;
 for j:=1 to m do begin
   if (mas[j]*k>0) then s:=s+mas[j];
 end;
 sum:=s;
end;

begin
 clrscr;
 randomize;
 writeln('Massiv A(70)');
 for i:=1 to 70 do begin
   a[i]:=random(10)-5;
   write(a[i],' ');
 end;
 writeln;
 writeln('Massive B(60)');
 for i:=1 to 60 do begin
   b[i]:=random(10)-5;
   write(b[i],' ');
 end;
 writeln;
 s1:=sum(a,70,1);
 s2:=sum(b,60,-1);
 z:=(s1+s2)/(s1-s2);
 writeln('z=',z:5:3);
 readln;
end.

Кажется это последняя ... :thanks:

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