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

[помогите]

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

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



Даша

[killerfriz]

В третьей можно просто также отсортировать массив по возрастанию

Можно и так-же но чтобы массив состоял не только из положительных но и отрицательных надо при заполнение массива за место

Код

mass[i]:=random(200);

написать к примеру

Код

mass[i]:=random(300)-random(300);

А на четвертую у меня так вышло

Код

Uses Crt;
const n=20;
     m=20;
Type mas=array [1..n,1..m] of integer;
Var
 mass:mas;
 max,i,j:integer;

begin
    for  i:=1 to n do
       for j:=1 to n do
       mass[i,j]:=random(300)-random(300);
       max:=mass[1,1];
    for i:=1 to n do
       for j:=1 to n do
         if mass[i,j]>max then
         max:=mass[i,j];
        Writeln('Ответ-',max);
    readkey;
end.

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