Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 16.11.2010
Сообщений: 60
1

Все нулевые элементы перенести в начало, а все остальные – в конец

12.01.2012, 01:44. Показов 1135. Ответов 1
Метки нет (Все метки)

6. Задать массив 12 чисел, содержащий несколько нулей. Воспользовавшись вспомогательным массивом, все нулевые элементы перенести в начало, а все остальные – в конец.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.01.2012, 01:44
Ответы с готовыми решениями:

Все отрицательные элементы массива перенести в его начало, а все остальные - в конец
преобразовать массив x по следующему правилу(воспользовавшись массивом y как вспомогательным): Все...

Преобразовать массив Х по следующему правилу: все отрицательные элементы массива Х перенести в его начало, а все остальные в конец
Помогите решить,срочно надо Задание: Организовать ручное заполнение целочисленного массива Х,...

Все отрицательные элементы массива перенести в его начало, а все остальные в его конец
Задана последовательность из N целых чисел. Все отрицательные элементы массива перенести в его...

Все отрицательные элементы массива перенести в начало, а все остальные — в конец
Преобразовать массив Х по следующему правилу: все отрицательные элементы массива перенести в...

__________________
1
16 / 16 / 9
Регистрация: 07.10.2011
Сообщений: 77
Записей в блоге: 1
12.01.2012, 10:40 2
Лучший ответ Сообщение было отмечено annuchka как решение

Решение

Цитата Сообщение от annuchka Посмотреть сообщение
6. Задать массив 12 чисел, содержащий несколько нулей. Воспользовавшись вспомогательным массивом, все нулевые элементы перенести в начало, а все остальные – в конец.
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
uses crt;
var i, j : integer;
     a, b : array [1..n] of integer;
begin
  for i := 1 to 10 do
     read(a[i]);
  j := 1;
  for i := 1 to 10 do
     if (a[i] = 0) then
     begin
       b[j] := a[i];
       j := j + 1; 
     end;
  for i := 1 to 10 do
     if (a[i] <> 0) then
     begin
       b[j] := a[i];
       j := j + 1; 
     end;
  for i := 1 to 10 do
     a[i] := b[i];
  for i := 1 to 10 do
    write(a[i], ' ');
  readkey;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.01.2012, 10:40

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

Все отрицательные элементы массива X перенести в его начало, а все остальные — в конец
1) Дано натуральное n. Написать программу вычисления значений...

Все отрицательные элементы массива перенести в начало, а все остальные в конец
Здраствуйте, помогите пожалуйста написать программу Нужно преобразовать массив Х по следующему...

Все отрицательные элементы массива перенести в начало, а все остальные - в конец
помогите пожалуйста))) преобразовать массив по следующему правилу (воспользовавшись массивом у как...

Все отрицательные элементы массива перенести в начало, а все остальные - в конец
Задать массив случайных чисел из диапазона . Воспользовавшись вспомогательным массивом, все...


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

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

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