Удаление элемента в одномерном массиве
Категория: Delphi/Pascal
2012-02-09 22:07:12
code: #pascal
var a:array[1..100] of integer; i,m,n:integer; begin readln(n); {считываем количество элементов} for i:=1 to n do read(a[i]); writeln('Массив'); for i:=1 to n do write(a[i],' '); writeln; writeln('После удаления'); m:=0; for i:=1 to n do if (a[i]=0) then inc(m) else a[i-m]:=a[i]; {удаляем элементы} dec(n,m); {уменьшаем количество элементов массива на количество нулевых элементов} for i:=1 to n do write(a[i],' '); {вывод на экран} readln end.
Поделиться: