1) у масиві в [1..7] замініть всі від'ємні елементи останнім. 2) у масиві с [1..к] визначне суму елементів з проміжку [х1; х2] на 1) в массиве в [1..7] замените все отрицательные элементы последним. 2) в массиве с [1..к] найдите сумму элементов из промежутка [х1; х2]

Var    a: array [1..7] of real;     i: integer;     m,s: real; begin     for i: =1 to 7 do                     read (a[i]);       for i: =1 to 7 do                     if a[i]< 0 then                      a[i]: =a[7];     for i: =1 to 7 do               write (a[i],' '); end. ================================ var    a: array [1..100] of integer;     k,x1,x2,i: integer;     s: real; begin     s: =0; read(k);     read(x1); read(x2); for i: =1 to k do                     read (a[i]); for i: =1 to k do  begin       if a[i] in [x1..x2] then                s: =s+a[i]; end; write (s,' ');   end.

для 4 символов:

2*2*2*2=16

 

для 5 символов:

2*2*2*2*2=32 

 

для 6 символов:

2*2*2*2*2*2=64

 

16+32+64=112