1)Дан массив из n элементов. Найти номер наименьшего элемента массива.
2)Дан массив из n элементов. Упорядочить массив по возрастанию.
3)Дан массив из n элементов. Упорядочить массив по убыванию.

Const   N = 13;Var   A:array[1..N] of integer;   i,Min:integer;BeginRandomize;Min:=1;For i:= 1 to N do    Begin    A[i]:=random(2*N+1)-N;    Write(A[i],' ');    if A[Min]>A[i] then Min:=i;    End;WriteLn;WriteLn(Min)End.Const   N = 13;Var   A:array[1..N] of integer;   i,j,Min,B:integer;BeginRandomize;For i:= 1 to N do    Begin    A[i]:=random(2*N+1)-N;    Write(A[i],' ');    End;WriteLn;WriteLn;For i:= 1 to N do    Begin    Min:=i;    For j:=i+1 to N do        if A[Min]>A[j] then Min:=j;    B:=A[Min];    A[Min]:=A[i];    A[i]:=B;    Write(A[i],' ')    End;End.Const   N = 13;Var   A:array[1..N] of integer;   i,j,Max,B:integer;BeginRandomize;For i:= 1 to N do    Begin    A[i]:=random(2*N+1)-N;    Write(A[i],' ');    End;WriteLn;WriteLn;For i:= 1 to N do    Begin    Max:=i;    For j:=i+1 to N do        if A[Max]<A[j] then Max:=j;    B:=A[Max];    A[Max]:=A[i];    A[i]:=B;    Write(A[i],' ')    End;End.