Задан одномерный массив А. Требуется переписать элементы одномерного массива А кратные 5 в массив В, а если такие отсутствуют, то выдать соответствующее сообщение.
DIM n AS INTEGER, m AS INTEGER CLS INPUT "n,m=", n, m IF n < 3 THEN PRINT "n<3" SYSTEM END IF REDIM a(1 TO n, 1 TO m) AS INTEGER RANDOMIZE TIMER FOR i = 1 TO n FOR j = 1 TO m a(i, j) = INT(50 * RND) PRINT USING "###"; a(i, j); NEXT j PRINT NEXT i PRINT FOR i = 4 TO n FOR j = 1 TO m a(i - 1, j) = a(i, j) NEXT j NEXT i FOR i = 1 TO n - 1 FOR j = 1 TO m PRINT USING "###"; a(i, j); NEXT j PRINT NEXT i
Замечание Поскольку QBasic не поддерживает сохранение содержимого при изменении размеров динамического массива, для упрощения было решено не заниматься созданием вс массива, копирования в него всех строк, кроме последней, затем изменение размера исходного массива и обратное копирование в него. Просто считается, что n уменьшилось на 1.
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('Сумма равна ',Range(1,223,2).Println.Sum)
end.
Результат
1 3 5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99 101 103 105 107 109 111 113 115 117 119 121 123 125 127 129 131 133 135 137 139 141 143 145 147 149 151 153 155 157 159 161 163 165 167 169 171 173 175 177 179 181 183 185 187 189 191 193 195 197 199 201 203 205 207 209 211 213 215 217 219 221 223
Сумма равна 12544