Здравствуйте, помогите разобраться в одном моменте.
В массиве удалить чётный элемент. Программа работает когда ввожу все чётные элементы, как только заполняю массив всеми нечётными - выходит сообщение об ошибке.
Вот ниже приведено основное решение в программе
for i:=1 to n do
if a[i]mod 2=0 then m:=i;
for i:=m to n-1 do
a[i]:=a[i+1];
for i:=1 to n-1 do
writeln ('новый массив',a[i]);
end.
заранее спасибо
М | Новичок, будь так добр, посмотри, пожалуйста, http://forum.pascal.net.ru/index.php?s=&showtopic=25662&view=findpost&p=144041, http://forum.pascal.net.ru/index.php?s=&showtopic=25612&view=findpost&p=143588 и http://forum.pascal.net.ru/index.php?s=&showtopic=25429&view=findpost&p=142539.. И скажи: ты долго будешь еще не обращать внимания на замечания модераторов пренебрегать правилами? Прочти Правила Форума (ссылка вверху) и обрати внимание на п.5, а также правила раздела задачи, п.2 |
Скажите как использовать теги
....