Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.92/13: Рейтинг темы: голосов - 13, средняя оценка - 4.92
7 / 7 / 3
Регистрация: 01.03.2009
Сообщений: 38
1

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

13.12.2010, 17:51. Показов 2517. Ответов 10
Метки нет (Все метки)

Помогите решить,срочно надо
Задание: Организовать ручное заполнение целочисленного массива Х, размерностью 10. Преобразовать массив Х по следующему правилу: все отрицательные элементы массива Х перенести в его начало, а все остальные в конец, сохраняя исходное взаимное расположение как среди отрицательных, так и среди положительных элементов. Вывести на экран вектор Х до и после изменения. ( Можно воспользоваться массивом Y как вспомогательным).
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.12.2010, 17:51
Ответы с готовыми решениями:

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

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

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

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

10
CRYGER
13.12.2010, 18:23 2
Элементарная задача .....читай учебники и разбирайся ЛЕНТЯЙ!!!
7 / 7 / 3
Регистрация: 01.03.2009
Сообщений: 38
13.12.2010, 18:29  [ТС] 3
Цитата Сообщение от CRYGER Посмотреть сообщение
Элементарная задача .....читай учебники и разбирайся ЛЕНТЯЙ!!!
Ну раз элементарная,то напиши
0
8 / 8 / 4
Регистрация: 29.04.2010
Сообщений: 82
13.12.2010, 18:47 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
USES CRT;
VAR I,J,X,N:INTEGER;
    A:ARRAY[0..50] OF INTEGER;
BEGIN
CLRSCR;
  WRITE('Введи  длину  массива: ');
  READ(N);
  WRITELN('Введи  массив: ');
  FOR I:=1 TO N DO
  READ(A[I]);
  FOR I:=2 TO N DO
  FOR J:=N DOWNTO I DO
  IF A[J-1]>A[J] THEN
  BEGIN
    X:=A[J-1];
    A[J-1]:=A[J];
    A[J]:=X
  END;
  WRITELN('Результат:');
  FOR I:=1 TO N DO
  WRITE(A[I],' ')
END.
1
2856 / 1985 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
13.12.2010, 18:48 5
Alex911
сохраняя исходное взаимное расположение как среди отрицательных, так и среди положительных элементов
0
8 / 8 / 4
Регистрация: 29.04.2010
Сообщений: 82
13.12.2010, 18:53 6
ну пусть тогда переделывает сам раз не так
0
7 / 7 / 3
Регистрация: 01.03.2009
Сообщений: 38
13.12.2010, 19:00  [ТС] 7
Цитата Сообщение от Alex911 Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
USES CRT;
VAR I,J,X,N:INTEGER;
    A:ARRAY[0..50] OF INTEGER;
BEGIN
CLRSCR;
  WRITE('Введи  длину  массива: ');
  READ(N);
  WRITELN('Введи  массив: ');
  FOR I:=1 TO N DO
  READ(A[I]);
  FOR I:=2 TO N DO
  FOR J:=N DOWNTO I DO
  IF A[J-1]>A[J] THEN
  BEGIN
    X:=A[J-1];
    A[J-1]:=A[J];
    A[J]:=X
  END;
  WRITELN('Результат:');
  FOR I:=1 TO N DO
  WRITE(A[I],' ')
END.
Спасибо,но я написал такой же код и проблема как раз в том что последовательность сохранить не могу
Хелп ми
0
Фрилансер
Эксперт С++
5843 / 1224 / 499
Регистрация: 23.11.2010
Сообщений: 3,377
Записей в блоге: 1
13.12.2010, 19:03 8
Цитата Сообщение от CreepiTall Посмотреть сообщение
Помогите решить
Цитата Сообщение от CreepiTall Посмотреть сообщение
напиши
Цитата Сообщение от CreepiTall Посмотреть сообщение
Хелп ми
ныть не надоело?
0
7 / 7 / 3
Регистрация: 01.03.2009
Сообщений: 38
13.12.2010, 19:05  [ТС] 9
Цитата Сообщение от Dekio Посмотреть сообщение
ныть не надоело?
Не особо
0
2856 / 1985 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
13.12.2010, 19:09 10
https://www.cyberforum.ru/pasc... 10254.html
0
0 / 0 / 0
Регистрация: 16.04.2014
Сообщений: 2
28.05.2014, 15:05 11
а кто может в с++ перевести её очень надо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.05.2014, 15:05

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

Все отрицательные элементы массива X перенести в его начало, а все остальные — в конец
Нужна помощь в доработке программы. Delphi формы: После того как я ввел числа в колонках нажимаю...

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

Все отрицательные элементы массива списка перенести в его начало, а все остальные – в конец
Не понимаю как написать. Задача: Реализовать функцию: в которой все отрицательные элементы...

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


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

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

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