Определите максимальный и минимальный элементы массива из десяти случайных чисел в диапазоне от 5 до 10. Если в результате выполнения кода сформировался в программе случайным образом следующий массив: [6 , 7, 9, 7 , 8]. ответ запишите через запятую. И ОСТАЛЬНОЕ НА ФОТО

Const   N = 7;Var   A:array[1..N,1..N] of integer;   i,j:integer;BeginFor i:= 1 to N do    Begin    For j:= 1 to N do        Begin        A[i,j]:=random(21)-10;        Write(A[i,j]:3,' ')        End;    WriteLn    End;WriteLn;For i:= 1 to N div 2+(N mod 2) do    Begin    For j:= 1 to N do        Begin        if (j<=N div 2+i)and(N div 2-i+(N mod 2)<j) then A[i,j]:=99;        Write(A[i,j]:3,' ')        End;    WriteLn;    End;For i:= (N div 2)+(N mod 2)+1 to N do    Begin    For j:= 1 to N do        Begin        if (i-N div 2-1<j)and(j<=N+N div 2+1-i) then A[i,j]:=99;        Write(A[i,j]:3,' ')        End;    WriteLn;    End;End.