Удаления элементов одномерного массива A(N)

05.03.2013, 09:06. **Просмотров** 845. **Ответов** 3

Составьте программу удаления элементов одномерного массива A(N), равных последнему элементу этого массива

@Puporev · 05.03.2013, 09:13

А последний тоже удалять?

Добавлено через 5 минут

Pascal

uses crt;
const nmax=100;
var  a:array[1..nmax] of integer;
     n,i,j,p,x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(4);
  write(a[i],' ');
 end;
writeln;
x:=a[n];
i:=1;
while i<=n do {если последний не удалять, то i<n}
if a[i]=x then
 begin
  if i=n then n:=n-1{если последний не удалять, то это тоже не нужно}
  else
   begin
    for j:=i to n-1 do
    a[j]:=a[j+1];
    n:=n-1;
   end
 end
else i:=i+1;
writeln('Удаление элементов, равных последнему:');
for i:=1 to n do
write(a[i],' ');
readln
end.

@wq · 10.03.2013, 15:39

Puporev, объясните пожалуйста подробнее данную задачу

заранее спасибо

@Puporev · 10.03.2013, 15:47

Pascal

for j:=i to n-1 do//сдвигаем конец массива на данный элемент
a[j]:=a[j+1]; //элемент стирается
n:=n-1;//уменьшаем массив на 1
Остальное должно быть понятно

matan
		1
	Удаления элементов одномерного массива A(N) 05.03.2013, 09:06. Просмотров 845. Ответов 3 Метки нет (Все метки) Составьте программу удаления элементов одномерного массива A(N), равных последнему элементу этого массива

@wq 85 / 78 / 32 Регистрация: 26.11.2015 Сообщений: 481
	10.03.2013, 15:39	3
	Puporev, объясните пожалуйста подробнее данную задачу заранее спасибо 0

Опции темы