Написать программу по заданию

BendikW

Здравствуйте помогите написать программу на QBasicЗадание такоеДан массив A размера N и целые числа К и L (1<=KБуду очень благодарен тем кто напишет код!!!
2 ответа

BendikW

CLS
RANDOMIZE TIMER
k = 3
l = 9
n = 14
DIM A(1 TO n)
 
FOR i = 1 TO n
   A(i) = INT(20 * RND)
   PRINT A(i);
NEXT
PRINT : PRINT
 
FOR i = k TO l
   IF i < (k + l) / 2 THEN
      SWAP A(i), A(k + l - i)
   END IF
NEXT
 
FOR i = 1 TO n
   PRINT A(i);
NEXT
END


BendikW

FOR i = k TO l
   IF i < (k + l) / 2 THEN
      SWAP A(i), A(k + l - i)
   END IF
NEXT
Лучше так
FOR i = k TO (k+l-1) \ 2
    SWAP A(i), A(k + l - i)
NEXT