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

[помогите]

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

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



Даша

[killerfriz]

первая выглядит так

Код

uses crt;
Const n=20;
Var
 mass:array [1..n] of integer;
 max,min,i:integer;
begin
    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:=mass[i];
    min:=mass[1];
    for i:=1 to n do
    if mass[i]<min then
    min:=mass[i];
    max:=max-min;
    writeln(' Разность=',max);
    readkey;
end.

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