Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
sanaice
0 / 0 / 0
Регистрация: 26.02.2009
Сообщений: 30
#1

Переместить нулевые элементы заданного массива на один элемент вперед - Pascal

04.03.2009, 20:20. Просмотров 884. Ответов 1
Метки нет (Все метки)

написать программу которая перемещает нулевые элементы заданного массива на один элемент вперед.


Помогите кто нибудь сделать, че то не могу никак, буду благодарен, чем смогу тоже буду рад помочь!!!
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.03.2009, 20:20
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Переместить нулевые элементы заданного массива на один элемент вперед (Pascal):

Переместить максимальные элементы массива вперед - Pascal
Одномерный массив А заполнить случайными числами из диапазона . Переместить максимальные элементы в начало, сдвинув остальные элементы...

Переместить нулевые элементы массива в конец, сдвинув остальные элементы влево - Pascal
1. Одномерный массив А длиной М. Переместить нулевые элементы массива в конец, сдвинув остальные элементы влево Дан одномерный массив А...

Переставить положительные элементы массива вперед. - Pascal
Не используя сортировку переставить элементы массива А(30) так, чтобы вначале шли все положительные, а затем отрицательные в своей...

Вывести на экран те элементы заданного массива, которые расположены после максимального элемент - Pascal
Написать программу, которая выводит на экран те элементы заданного массива, которые расположены после максимального элемента всего массива....

Переставить элементы массива, большие среднего, вперед. - Pascal
Разделить массив на две части, поместив в первую элементы, большие среднего арифметического их суммы, а во вторую — меньшие (части не...

все элементы массива,начиная со второго,необходимо подвинуть вперед - Pascal
все элементы массива,начиная со второго,необходимо подвинуть вперед.первому элементу присвоить значение 0

1
Extremall
20 / 20 / 1
Регистрация: 26.02.2009
Сообщений: 49
04.03.2009, 21:48 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Вот код. Только если нулевой стоит на последнем месте, то он там и останется.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
const nmax = 100;
var a:array[1..nmax] of integer;
    i,n,w:integer;
 
begin
write('Vvedite N : ');readln(n);
write('Vvedite massiv : ');
for i:=1 to n do read(a[i]);
for i:=n-1 downto 1 do
  if a[i]=0 then begin
    w:=a[i];a[i]:=a[i+1];a[i+1]:=w;
  end;
writeln;
write('New massiv : ');
for i:=1 to n do write(a[i]:4);
readln;readln;
end.
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.03.2009, 21:48
Привет! Вот еще темы с ответами:

Все элементы, для которых находится хотя бы один равный ему элемент, переписать в конец массива - Pascal
Дан двухмерный массив из 120 элементов. Задание звучит как "Все элементы, для которых находится хотя бы один равный ему элемент, переписать...

Дан массив C(N). Создать новый массив, заменив положительные элементы на максимальный элемент, отрицательные – на минимальный элемент, нулевые оставив - Pascal
Помогите решить несколько задач по одномерным массивам 1.Дан массив C(N). Создать новый массив, заменив положительные элементы на...

Переместить минимальные элементы массива в начало, сдвинув остальные элементы вправо - Pascal
Дан одномерный массив. Переместить минимальные элементы в начало, сдвинув остальные элементы вправо.

Переместить максимальные элементы массива в начало, сдвинув остальные элементы вправо - Pascal
Одномерный массив А заполнить случайными числами из диапазона . Переместить максимальные элементы в начало, сдвинув остальные элементы...


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

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

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