Заполнить массив случайными целыми числами из интервала от -7 до 25

// PascalABC.NET

begin

 var n := ReadInteger('Укажи количество элеменов:');

 var a := ArrRandom(n, -7, 25);

 a.Println

end.

Const
   N = 6;
   M = 7;
Var
   A:array[1..N,1..M] of integer;
   i,j,k,MM,B:integer;
Begin
Randomize;
WriteLn('Исходный массив:');
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Begin
        A[i,j]:=random(21)-10;
        Write(A[i,j]:3,' ')
        End;
    WriteLn
    End;
WriteLn;
WriteLn('Отсортированный массив:');
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Begin
        MM:=j;
        if i mod 2 = 0 then
           Begin
           For k:= j+1 to M do
               if A[i,MM] > A[i,k] then MM:=k
           End
        else
           For k:= j+1 to M do
               if A[i,MM] < A[i,k] then MM:=k;
        B:=A[i,MM];
        A[i,MM]:=A[i,j];
        A[i,j]:=B;
        Write(A[i,j]:3,' ')
        End;
    WriteLn
    End
End.

Пример работы программы:

Исходный массив:
  9  -5   6   0  -9   0   9
  3  -9  -4  10  -8  10   3
 -2   1   2   3   3   0  10
-10   1   8  -3  -4  -3   4
 -9  -7  -3  -9   2  -1  -3
  7 -10  10  -3   4  10   0

Отсортированный массив:
  9   9   6   0   0  -5  -9
 -9  -8  -4   3   3  10  10
 10   3   3   2   1   0  -2
-10  -4  -3  -3   1   4   8
  2  -1  -3  -3  -7  -9  -9
-10  -3   0   4   7  10  10

Var
   f:byte;
   x:real;
Begin
WriteLn('Выберите тип математической функции:');
WriteLn('1 - квадрат, 2 - куб, 3 - корень квадратный, 4 - обратная функция, 0 - выход.');
ReadLn(f);
While f <> 0 do
   Begin
   Write('Введите x: ');ReadLn(x);
   Case f of
   1:
     if x < 0 then WriteLn(x,'*(',x,') = ',x*x)
     else WriteLn(x,'*',x,' = ',x*x);
   2:
     if x < 0 then WriteLn(x,'*(',x,')*(',x,') = ',x*x*x)
     else WriteLn(x,'*',x,'*',x,' = ',x*x*x);
   3:
     if x < 0 then WriteLn('√',x,' = ',Sqrt(-x),'i')
     else WriteLn('√',x,' = ',Sqrt(x));
   4:
     if x = 0 then WriteLn('Ошибка: на ноль делить нельзя!')
     else if x < 0 then WriteLn('1/(',x,') = ',1/x)
          else WriteLn('1/',x,' = ',1/x);
   End;
   WriteLn;
   WriteLn('Выберите тип математической функции:');
   WriteLn('1 - квадрат, 2 - куб, 3 - корень квадратный, 4 - обратная функция, 0 - выход.');
   ReadLn(f);
   End;
End.

Пример работы программы:

Выберите тип математической функции:
1 - квадрат, 2 - куб, 3 - корень квадратный, 4 - обратная функция, 0 - выход.
1
Введите x: -8
-8*(-8) = 64

Выберите тип математической функции:
1 - квадрат, 2 - куб, 3 - корень квадратный, 4 - обратная функция, 0 - выход.
3
Введите x: 14
√14 = 3.74165738677394

Выберите тип математической функции:
1 - квадрат, 2 - куб, 3 - корень квадратный, 4 - обратная функция, 0 - выход.
4
Введите x: 0
Ошибка: на ноль делить нельзя!

Выберите тип математической функции:
1 - квадрат, 2 - куб, 3 - корень квадратный, 4 - обратная функция, 0 - выход.
4
Введите x: 16
1/16 = 0.0625

Выберите тип математической функции:
1 - квадрат, 2 - куб, 3 - корень квадратный, 4 - обратная функция, 0 - выход.
0