Создать файл целых чисел, содержащий четное количество элементов. Удалить из данного файла нечетные элементы.
Программа в

Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! type   монетка=(орел,решетка);   корзинаяблок = list< integer> ;       function бросокмонетки: =random(2)=1 ? орел : решетка; function заполнитькорзину(d: char): корзинаяблок; // считаем, что яблоко весит от 100 до 250 г, // и что в корзину вмещается около 8 кг яблок. begin   result: =new корзинаяблок;   var весяблок: =0;   while весяблок< =8000 do begin       var яблоко: =random(100,250);       result.add(яблоко);       весяблок+=яблоко       end;   if d='1' then begin       write('яблоки в корзине: ');       result.println       end; end; procedure взятьяблоко(корзина: корзинаяблок; var яблоко: integer); begin   if бросокмонетки=орел then begin       яблоко: =корзина.last;       корзина.removeat(корзина.count-1)       end   else begin       яблоко: =корзина.first;       корзина.removeat(0)       end end; procedure яблокомальчику(корзина,яблокимальчика: корзинаяблок); begin   var яблоко: integer;   if корзина.count> 0 then begin       взятьяблоко(корзина,яблоко);       яблокимальчика.add(яблоко)       end end; begin   randomize;   var яблокисерика: =new корзинаяблок;   var яблокиберика: =new корзинаяблок;   var n: =readlninteger('собрано корзин: ');   var d: =readlnchar('1 - отладочный вывод, иное - только результат: ');   loop n do begin       var корзина: =заполнитькорзину(d);       while корзина.count> 0 do begin           яблокомальчику(корзина,яблокисерика);           яблокомальчику(корзина,яблокиберика);           end;       if d='1' then begin           write('яблоки серика: ');           яблокисерика.print; writeln(' вес: ',яблокисерика.sum);           write('яблоки берика: ');           яблокиберика.print; writeln(' вес: ',яблокиберика.sum)           end       end;   writeln('общий вес яблок серика: ',яблокисерика.sum,           ', общий вес яблок берика: ',яблокиберика.sum) end. пример без отладочной выдачи собрано корзин: 5 1 - отладочный вывод, иное - только результат: 0 общий вес яблок серика: 20399, общий вес яблок берика: 19977 пример с отладочной выдачей собрано корзин: 3 1 - отладочный вывод, иное - только результат: 1 яблоки в корзине: 242 163 173 244 236 199 206 189 166 117 147 211 219 221 241 192 177 130 165 198 156 224 107 198 131 184 142 155 125 166 145 221 231 238 195 210 180 236 210 124 247 159 236 яблоки серика: 242 236 173 247 124 199 206 180 166 147 219 238 221 241 145 130 125 142 165 198 156 107 вес: 4007 яблоки берика: 163 159 244 236 210 236 189 210 117 211 195 231 221 192 177 166 155 184 131 198 224 вес: 4049 яблоки в корзине: 132 176 119 177 154 204 123 158 217 196 245 235 181 183 237 104 107 127 194 185 158 147 203 221 129 202 137 148 205 148 154 246 211 156 143 154 213 199 227 158 168 113 174 106 102 103 123 105 яблоки серика: 242 236 173 247 124 199 206 180 166 147 219 238 221 241 145 130 125 142 165 198 156 107 105 132 102 176 113 177 154 227 123 158 196 245 181 237 154 156 211 246 185 158 203 148 202 205 вес: 8201 яблоки берика: 163 159 244 236 210 236 189 210 117 211 195 231 221 192 177 166 155 184 131 198 224 123 103 106 174 119 168 158 204 199 217 213 235 183 104 143 107 127 194 154 147 221 129 137 148 вес: 7862 яблоки в корзине: 160 105 215 103 229 250 217 245 152 193 169 190 188 213 113 127 180 122 123 134 103 192 121 207 230 118 226 232 101 228 107 125 143 173 235 218 231 216 147 180 166 227 209 205 115 181 яблоки серика: 242 236 173 247 124 199 206 180 166 147 219 238 221 241 145 130 125 142 165 198 156 107 105 132 102 176 113 177 154 227 123 158 196 245 181 237 154 156 211 246 185 158 203 148 202 205 160 105 115 229 209 166 217 245 216 231 169 218 213 173 125 107 228 101 232 118 123 121 192 вес: 12214 яблоки берика: 163 159 244 236 210 236 189 210 117 211 195 231 221 192 177 166 155 184 131 198 224 123 103 106 174 119 168 158 204 199 217 213 235 183 104 143 107 127 194 154 147 221 129 137 148 181 215 103 205 227 250 180 147 152 193 190 188 235 143 113 127 180 122 226 230 207 134 103 вес: 11913 общий вес яблок серика: 12214, общий вес яблок берика: 11913