Необходимо составить программу с использованием рекурсии замечание: под инвертированием понимают перестановку первого и последнего элементов этой части, второго и предпоследнего и т.д. инвертировать часть массива, расположенную между самым левым минимальным в первой половине массива и самым правым максимальным во второй половине массива.

Program zad; var i,m: longint;             sum,count: real;           a: array [1..n] of longint; begin sum: =0; count: =0; for i: =1 to n do                     begin read(m); a[i]: =m end; for i: =1 to n do                     if (a[i]> =2) and (a[i]< =8)                                            then begin sum: =sum+a[i]; count: =count+1 end; sum: =sum/count; if (sum< 0)          then   writeln('элементов удовлетворяющих условию нет')     else  writeln(sum); end. p.s. переменную n во всем тексте программы следует заменить на конкретное натуральное число!

Var a: array[1..1000,1..1000] of integer; m,n,mi,mj: integer; begin write('m(1..1000) = '); readln(m); write('n(1..1000) = '); readln(n); for var i: = 1 to m do       begin       for var j: = 1 to n do               begin               a[i,j]: =random(1,m*n);               write(a[i,j],' ')               end;       writeln;       end; mi: =m; mj: =n; for var i: = 1 to m do       for var j: = 1 to n do               if a[mi,mj]< a[i,j] then                     begin                     mi: =i;                     mj: =j                     end; writeln('max(a): a[',mi,',',mj,'] = ',a[mi,mj]); end.