PascalABC.NET

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
PascalABC.NET Составить список групп,включащий номер группы, шифр специальности, кол-во студентов в группе https://www.cyberforum.ru/ pascalabc-net/ thread2005419.html Составить список групп,включащий номер группы, шифр специальности, кол-во студентов в группе. Подсчитать общее кол-во студентов в группе. Pascal	PascalABC.NET За что отвечает свойство IsSynchronized? За что отвечает свойство IsSynchronized? Можно с примерами использования?
PascalABC.NET Если элемент массива четный, то прибавить к нему первый элемент, а если нечетный - последний. Если значение элемента массива четно, то прибавить к нему первый элемент массива, а если нечетно - последний элемент массива. Первый и последний элементы не изменять. https://www.cyberforum.ru/ pascalabc-net/ thread2005384.html	PascalABC.NET Найти сумму элементов таблицы над главной диагональю Дана матрица А. Найти сумму элементов таблицы над главной диагональю. https://www.cyberforum.ru/ pascalabc-net/ thread2005382.html
PascalABC.NET Отсортировать числа Даны n чисел а1, а2, ...ai ,... аn. Отсортировать эти числа по убыванию. Составить схему алгоритма и написать программу на языке Паскаль.	PascalABC.NET Методы расширения https://www.cyberforum.ru/ pascalabc-net/ thread2005291.html Доброго времени суток. Пожалуйста,посоветуйте справочник или что-то наподобие учебника по методам расширения в Паскале. Встроенной справки для меня недостаточно...
PascalABC.NET Чем отличаются лямбда от предиката? https://www.cyberforum.ru/ pascalabc-net/ thread2005287.html Чем отличается лямбда функции от предиката?	Анимации на Pascal ABC.NET PascalABC.NET В чем может быть проблема ? Когда нажимаю на клавиши машина перемещаеться, но все линии не успевают перерисоваться и заливаеться вся страница. Вот листинг : uses GraphABC ; var dx , dy : integer ; procedure KeyDown( key : integer ) ; begin
PascalABC.NET Выяснить, имеется ли в одномерном массиве одинаковые числа Выяснить, имеется ли в одномерном массиве одинаковые числа. Если есть, вывести их индексы https://www.cyberforum.ru/ pascalabc-net/ thread2005150.html	PascalABC.NET Составить программу для решения квадратного уравнения https://www.cyberforum.ru/ pascalabc-net/ thread2005149.html Составить программу для решения квадратного уравнения вида ax^2+bx+c=0. Решить все уравнения, которые можно составить при использовании отличных от нуля чисел p,q,r в качестве коэффициентов квадратного уравнения(всего 6 штук)
Найти сумму элементов таблицы над верхней диагональю PascalABC.NET Найти сумму элементов таблицы над верхней диагональю.	PascalABC.NET Найти матрицу C(n,m), равную векторному произведению матриц A и B https://www.cyberforum.ru/ pascalabc-net/ thread2005037.html A(nl) и B(lm). Найти на ЭВМ матрицу C(n,m), равную векторному произведению матриц A и B

Zwelenewskiy

129 / 127 / 107

Регистрация: 09.01.2017

Сообщений: 1,651

17.06.2017, 20:12

Переместить в начало все отрицательные элементы списка, сохраняя их порядок - PascalABC.NET - Ответ 10553466

17.06.2017, 20:12. Показов 1642. Ответов 5

Метки (Все метки)

Ответ

Вот такой вариант. Может, и лучше было бы вставлять искомые элементы вставлять в начало массива,но мне было лень =))

Pascal

var
  a: array of real;
  k: boolean;
 
begin
  
  var n := readinteger('Введите кол-во чисел: ');
  Setlength(a, n);  
  
  k := true;
  for var i := 0 to n - 1 do
  begin
    a[i] := readinteger('Введите ' + (i + 1) + '-й элемент массива: ' );
    if a[i] < 0
      then k := false;
  end;  
  
  if k then writeln('Отрицательных чисел нет')
  else begin
    writeln;
    for var i := 0 to n - 1 do
      if a[i] < 0
        then write(a[i], ' ');
  end;
  
  for var i := 0 to n - 1 do
    if a[i] >= 0
      then write(a[i], ' ');
  
end.

Вернуться к обсуждению:
Переместить в начало все отрицательные элементы списка, сохраняя их порядок PascalABC.NET

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

17.06.2017, 20:12

Готовые ответы и решения:

Переместить все цифры в конец, а остальные символы в начало строки, сохраняя порядок взаимного расположения
Преобразовать строку символов по пaравилу: переместить все цифры в конец, а остальные символы в...

Сдвинуть все отрицательные элементы с в начало массива,сохраняя их порядок между собой, а все положительные элементы
Дан целочисленный список с количеством элементов 2n, не содержащий нулей. Сдвинуть все...

Переставить в массиве все отрицательные элементы в начало массива, сохраняя относительный порядок
Проштудировал весь форум.Решений много взял по примеру написал код, ошибок нет но ответа нужного...

Последовательно переместить все отрицательные элементы списка в его начало, а положительные - в конец
1314 Дан список из n целых чисел a1, a2,..., an. Последовательно переместить все отрицательные...

	17.06.2017, 20:12

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

17.06.2017, 20:12

Помогаю со студенческими работами здесь

Все элементы, не равные нулю, переписать (сохраняя их порядок) в начало, а нулевые элементы – в конец массива
Задан одномерный массив. Все его элементы, не равные нулю, переписать (сохраняя их порядок) в...

Разместить сначала все положительные элементы массива, а затем все отрицательные и нули, сохраняя порядок их следования
Дан массив вещественных чисел, содержащий 20 элементов. Записать в этот же массив сначала все...

Записать сначала все отрицательные элементы, затем нули и положительные элементы, сохраняя порядок следования во второй массив.
Помогите решить 2 задачи 1) Дан массив чисел, содержащий 20 элементов. Записать сначала все...

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

Наверх