Вставка, объединение, перестановка элементов массива.

[Vadim123456]

1. Проверить, являются ли элементы массива упорядоченными по возрастанию. (Не получается)

2. Дан одномерный массив, размерность которого произвольна и заполненный случайным образм. Поменять местами второй и минимальный элементы массива.

Program gg;
Uses crt;
Var
a:array [1..100] of integer;
i,min,c,N:integer;
Begin
Clrscr;
Randomize;
min:=1;
Write('Vvedite kol-vo elementov=');
Readln(N);
For i:=1 to N do begin
a[i]:=-90 +random(180);
Write('a[',i,']=',a[i]);
Write(' ');
If a[i]<min then min:=a[i];
End;
Writeln;
Writeln('a[',2,']=',a[2]);
Writeln('Minimym=',min);
Writeln('a[',2,']=',min);
Writeln('Minimym=',a[2]);
Readln;
End.

3. Два массива A и B заполнены с клавиатуры. Вывести на экран те элементы массива A, которые лежат в B. (Ещё не пробывал)

Помогите пожалуйста!

[Namolem]

1. упорядочены=TRUE; цикл по всем элементам. Если следующий меньше, тогда упорядочены=FALSE и break;

[Vadim123456]

А в чём ошибка во втором номере?

[Vadim123456]

2.

Program gg;
Uses crt;
Var
a:array [1..100] of integer;
i,min,N,k:integer;
Begin
Clrscr;
Randomize;
Write('Vvedite kol-vo elementov=');
Readln(N);
For i:=1 to N do begin
a[i]:=-90 +random(180);
Write(a[i]);
Write(' ');
End;
min:=a[1];
k:=1;
For i:=2 to n do
If a[i]<min then
Begin min:=a[i];
k:=i;
End;
Write('Minimym=',min);
min:=a[k];
a[k]:=a[2];
a[2]:=min;
Writeln;
For i:=1 to N do Begin
Write(a[i]);
Write(' ');
End;
Readln;
End.

[Vadim123456]

Всё. Всем спасибо. Сделано.