Содномерным массивом, состоящим из n вещественных элементов, произвести следующие операции: 1) найти номер минимального элемента массива; 2) вычислить сумму элементов массива, расположенных между первым и вторым отрицательными элементами; 3) преобразовать массив таким образом, чтобы сначала располагались, все элементы, модуль которых не превышает 1, а потом – все остальные. примечание: размеры массивов именованными константами. все операции над массивами выполняются отдельными процедурами и функциями в том порядке, в котором они описаны в . элементы массивов одним из двух способов: генерация случайным образом или ввод с клавиатуры. способ заполнения массива выбирается пользователем. реальную размерность массива программа должна спрашивать у пользователя (в диапазоне от единицы до значения, определяемое константой).

//pascal abc.net 3.1 сборка 1219 const   nc=10000; type   ty=array[1..nc] of real;   function minind(ar: ty; n: integer): integer; var   i,mini: integer;   min: real; begin min: =11;   for i: =1 to n do     if ar[i]< min then     begin       min: =ar[i];       mini: =i;     end; minind: =mini; end; function sum1to2(ar: ty; n: integer): real;   var   i,t1,t2: integer;   r: real; begin   for i: =1 to n do   if ar[i]< 0 then     begin     t1: =i;     break;     end;   for i: =t1+1 to n do   if ar[i]< 0 then     begin     t2: =i;     break;     end; for i: =t1+1 to t2-1 do r: =r+ar[i]; sum1to2: =r; end; procedure stransort(var ar: ty; n: integer); var  i,j,nd: integer; begin nd: =0;   for i: =1 to n do   if abs(ar[i])< =1 then     begin     inc(nd);     swap(ar[i],ar[nd]);     end; end;   var   ar: ty;   i,n: integer; begin randomize;   readln(n); writeln('array: '); for i: =1 to n do   begin   ar[i]: =random(-3,3);   write(ar[i]: 4);   end; writeln; writeln('index of minimum: ',minind(ar,n)); writeln('sum=',sum1to2(ar,n)); stransort(ar,n); writeln('final array: '); for i: =1 to n do write(ar[i]: 4); end. пример ввода: 5 пример вывода: array:     3   2   1   2   1 index of minimum: 3 sum=0 final array:     1   1   3   2   2

Можно просто вычислить 2^n-1 или (если не использовать функцию возведения в степень) сделать так: var n,i: integer; k: real; begin readln(n); k: =1; for i: =1 to n do k: =k*2; writeln(k-1); end. пример: 3 7