Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/37: Рейтинг темы: голосов - 37, средняя оценка - 4.57
0 / 0 / 1
Регистрация: 25.05.2011
Сообщений: 23
1

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

16.06.2011, 08:42. Просмотров 7178. Ответов 3
Метки нет (Все метки)


Помогите, пожалуйста...
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.06.2011, 08:42
Ответы с готовыми решениями:

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

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

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

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

3
16 / 16 / 3
Регистрация: 14.06.2011
Сообщений: 64
16.06.2011, 09:37 2
Создаеш другой массив с таким же размером. Перебераеш первый массив и проверяеш кажное значение на ноль. Если 0 не заносеш, если не 0 то заносиш в другой массив.
1
0 / 0 / 1
Регистрация: 25.05.2011
Сообщений: 23
16.06.2011, 23:07  [ТС] 3
Напишите программу, плиз!
0
5 / 5 / 2
Регистрация: 15.06.2011
Сообщений: 20
17.06.2011, 11:20 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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(); - тут скобок не надоя опечатался
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.06.2011, 11:20

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Сжать массив, выбросив из него нулевые элементы
Люди пожалуйста помогите срочно. Мне нужно до завтра решить задачу в Паскале. Задача. Задан...

Задан массив А(1:20). Найти произведение всех его нулевых элементов.
Задан массив А(1:20). Найти произведение всех его нулевых элементов.

Сжать массив, выбросив из него все нулевые элементы
Помогите идиоту сжать заданный массив, выбросив из него все нулевые элементы=)

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.