Помогите написать программу в Паскале. Дан массив размера N. Массив отсортировать в порядке возрастания. Для отладки программы
Помогите написать программу в Паскале. Дан массив размера N. Массив отсортировать в порядке возрастания. Для отладки программы числа последовательностей сформировать с помощью генератора случайных чисел.
Uses Crt; Const N = 13; Var A:array[1..N] of integer; i,j,Min,B:integer; Begin ClrScr; Randomize; Write('Исходный массив:'); For i:= 1 to N do Begin A[i]:=random(2*N+1)-N; Write(' ',A[i]) End; WriteLn; Write('Отсортированный массив:'); For i:= 1 to N do Begin Min:=i; For j:= i+1 to N do if A[j] < A[Min] then Min:=j; B:=A[i]; A[i]:=A[Min]; A[Min]:=B; Write(' ',A[i]) End; ReadLn End.