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.