Сжать массив, удалив из него все элементы, модуль которых находится в заданном интервале

DashGames

Ссылка удаленавот готовый код осталось последнее задание :Сжать массив, удалив из него все элементы, модуль которых находится в интервале [a, b]. освободившиеся в конце массива элементы заполнить нулями.
3 ответа

DashGames


DEFINT A-D, I-J, M-N
CLS
PRINT " A < B"
INPUT "A = "; a
INPUT "B = "; b
INPUT "N = "; n
DIM c(1 TO n)
DIM d(1 TO n)
RANDOMIZE TIMER
 
j = 0
FOR i = 1 TO n
   c(i) = 20 * RND - 10
   IF ABS(c(i)) < a OR ABS(c(i)) > b THEN
      j = j + 1
      d(j) = c(i)
   END IF
   PRINT c(i);
NEXT i
PRINT
 
FOR i = 1 TO n
   c(i) = d(i)
   PRINT c(i);
NEXT i
END


DashGames

Лучше поздно чем никогда!


DashGames

Лучше поздно чем никогда!
Лучше жевать чем говорить, gehh = xod...