Помогите пожалуйста с массивами, у меня экзамен на носу Опции

[помогите]

Здравствуйте,скажите,пожалуйста вы не можите мне помочь решить несколько задач
по турбо паскалю-тема массивы,хотя бы что-нибудь!!! Плиз!!!
1 Задан массив из n целых чисел, найти раность между максимальным и минимальным.
2 В массиве из разных целых чисел отсортировать элементы в интервале от
минималього до максимального:если минимум раньше максимума ,то по
возрастанию,если наоборот-по убыванию.
3 Дан массив из целых чисел,поместить отрицательные числа
влево,положительные-вправо.
4 В двумерном массиве определить максимальное значение.
5 В двумерном массиве определить координаты максимального значения.
6 В двумерном массиве поменять местами максимальное и минимальное.
7 В двумерном массиве поменять местами строки содержищие максимальное и
минимальное.
7 Сформировать случайным образом двумерный массив n на m,отсортитовать главную
диагональ.

Очень надеюсь на вашу помощь!!!
Если можите пишите на daria_vorobieva@mail.ru



Даша

[killerfriz]

а вторая так

Код

Uses Crt;
Type mas=array [1..20] of integer;
Var
 mass:mas;
 max,min,i,n:integer;
 {===================================Процедуры=======================}
procedure Sort1 (q:integer; var c:mas);
var
I:integer;
m :integer;
p:integer;
temp:integer;
begin
   M:=q-1;
   P:=1;
   While p<>0 do
   Begin
       p:=0;
       for i:=1 to m do
       begin
           if c[i]<c[i+1] then
           begin
               temp:=c[i];
               c[i]:=c[i+1];
               c[i+1]:=temp;
               p:=I;
           end;
       end;
       m:=p-1;
   end;
end;
procedure Sort2 (q:integer; var c:mas);
var I,m,p:integer;
    temp:integer;
begin
   M:=q-1;
   P:=1;
   While p<>0 do
   Begin
       p:=0;
       for i:=1 to m do
       begin
           if c[i]>c[i+1] then
           begin
               temp:=c[i];
               c[i]:=c[i+1];
               c[i+1]:=temp;
               p:=I;
           end;
       end;
       m:=p-1;
   end;
end;
begin
    n:=20;
    for  i:=1 to n do
    mass[i]:=random(200);
    max:=mass[1];
    for i:=1 to n do
    if mass[i]>max then
    max:=i;
    min:=mass[1];
    for i:=1 to n do
    if mass[i]<min then
    min:=i;
    if max>min then
    Sort2 (n,mass)
    else
    Sort1 (n,mass);
    Writeln(' ');
    for  i:=1 to n do
    Writeln(mass[i]);
    readkey;
end.

Может быть кто и компактнее сможет..... <_<

Сообщение отредактировано: killerfriz - 21.05.2004 18:14