Задан массив, содержащий несколько нулевых элементов. Сжать его, выбросив эти элементы

@Sant441 · Регистрация: 25.05.2011

Помогите, пожалуйста...

@MiheyJumaric · 16.06.2011, 09:37

Создаеш другой массив с таким же размером. Перебераеш первый массив и проверяеш кажное значение на ноль. Если 0 не заносеш, если не 0 то заносиш в другой массив.

@Sant441 · 16.06.2011, 23:07 **[ТС]**

Напишите программу, плиз!

@ucs · 17.06.2011, 11:20

Pascal

var b:array [1..100] of integer;
i,k,n:integer;
begin
n:=10;
for i:=1 to n do readln (b[i]);
k:=0;
for i:=1 to n do
if b[i]=0
then begin
b[i]:=b[i+1];
inc(k);
end;
n:=n-k;
k:=0;
for i:=1 to n do
if b[i]=0
then begin
b[i]:=b[i+1];
inc(k);
end;
n:=n-k;
 
for i:=1 to n do write(b[i],' ');
readln();
end.

я проход два раза делаю,чтобы если два нуля вместе - тоже делл их

Добавлено через 12 часов 3 минуты
readln(); - тут скобок не надо

я опечатался

@Sant441 0 / 0 / 1 Регистрация: 25.05.2011 Сообщений: 23
		1
	Задан массив, содержащий несколько нулевых элементов. Сжать его, выбросив эти элементы 16.06.2011, 08:42. Просмотров 7178. Ответов 3 Метки нет (Все метки) Помогите, пожалуйста... 0

@MiheyJumaric 16 / 16 / 3 Регистрация: 14.06.2011 Сообщений: 64
	16.06.2011, 09:37	2
	Создаеш другой массив с таким же размером. Перебераеш первый массив и проверяеш кажное значение на ноль. Если 0 не заносеш, если не 0 то заносиш в другой массив. 1

@Sant441 0 / 0 / 1 Регистрация: 25.05.2011 Сообщений: 23
	16.06.2011, 23:07 [ТС]	3
	Напишите программу, плиз! 0

Опции темы