Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
sanaice
0 / 0 / 0
Регистрация: 26.02.2009
Сообщений: 30
#1

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

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

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


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

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

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

Все нулевые элементы заменить на максимальный элемент массива
Дан одномерный массив.Все нулевые элементы заменить на максимальный элемент...

Получить из заданного массива два: в один записать все простые элементы, в другой – составные
Кому не сложно помогите! Задание: Получить из заданного массива два: в один...

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

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

1
Extremall
20 / 20 / 10
Регистрация: 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
Привет! Вот еще темы с решениями:

Переставить элементы массива, большие среднего, вперед.
Разделить массив на две части, поместив в первую элементы, большие среднего...

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

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

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


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

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

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