Question

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

Answer 1

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.

Answer 2

Большое спасибо☺