Определить максимальный и минимальный элементы среди положительных нечетных елементов целочисленного массива Х[x1..xn].Удалить из массива все нулевые элементы.
Задачу вроде бы решил, но небольшая проблема возникла с удалением элементов из массива.
Не знаю как удалять последний элемент
| Код |
k:=0;
j:=1;
while j<=n do
if x[j]=0 then Begin
k:=k+1;
for i:=j to (n-k) do
x[i]:=x[i+1];
end
else
j:=j+1;
for i:=1 to (n-k) do
writeln('x[',i,']=',x[i]);
|
Программа удаляет нули,но если ноль является последним елементом, то элемент не удаляется. |