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.