1)Дан массив из n элементов. Найти номер наименьшего элемента массива. 2)Дан массив из n...

Question

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

Answer 1

Const
   N = 13;
Var
   A:array[1..N] of integer;
   i,Min:integer;
Begin
Randomize;
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;
Begin
Randomize;
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;
Begin
Randomize;
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]    B:=A[Max];
    A[Max]:=A[i];
    A[i]:=B;
    Write(A[i],' ')
    End;
End.