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

Отрицательные элементы переместить в начало, а остальные – в конец с сохранением порядка следования

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

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

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

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

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

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

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

Решение

Цитата Сообщение от annuchka Посмотреть сообщение
17. В одномерном массиве все отрицательные элементы переместить в начало, а остальные – в конец с сохранением порядка следования.
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

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

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

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

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

Переписать с сохранением порядка следования элементы первого файла в первый
имеются два файла одинакового размера элементами которого являются отдельные символы.переписать с...


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

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

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