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

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

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

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


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

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

Переместить нулевые элементы массива в конец, сдвинув остальные элементы влево
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 элементов. Задание звучит как "Все элементы, для...


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

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

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