Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Angelina2001
0 / 0 / 0
Регистрация: 20.09.2018
Сообщений: 8
1

Изменить последовательность так, чтобы в начале стояли все 0, затем отрицательные, а затем положительные элементы

30.09.2018, 09:49. Просмотров 440. Ответов 1

Дана последовательность целых чисел х1,х2,…,хn. Изменить данную последовательность так, чтобы в начале стояли все нулевые элементы, затем отрицательные, а затем положительные элементы последовательности.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.09.2018, 09:49
Ответы с готовыми решениями:

Изменить последовательность так, чтобы в начале стояли все 0, затем отрицательные, а затем положительные элементы
Дана последовательность целых чисел х1,х2,…,хn. Изменить данную последовательность так, чтобы в...

Переставить компоненты вектора так, чтобы в начале стояли положительные, затем нулевые
Нужно написать программу для этих задач: 1. Пусть A, B, X - подмножества множества N натуральных...

Массив: переставить элементы таким образом, чтобы сначала были записаны все положительные, затем все отрицательные, а потом все нули.
Здравствуйте! помогите пожалуйста с задачей по информатике. Буду очень благодарна) В массиве из...

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

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

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4765 / 3409 / 4015
Регистрация: 05.06.2014
Сообщений: 17,042
30.09.2018, 10:16 2
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
26
27
28
29
30
31
32
33
34
35
36
37
const
  n = 10;
 
var
  a: array [1..n] of integer;
  k, i, temp, j: integer;
 
begin
  randomize;
  for i := 1 to n do
  begin
    a[i] := -n div 2 + random(n); 
    write(a[i]:5);
  end;
  k := 0;
  for i := 1 to n do
    if a[i] = 0 then
    begin
      inc(k);
      temp := a[i];
      for j := i downto k + 1 do
        a[j] := a[j - 1];
      a[k] := temp;
    end;
  
  for i := k + 1 to n do
    for j := k + 1 to n - 1 do
      if a[j] > 0 then
      begin
        temp := a[j];
        a[j] := a[j + 1];
        a[j + 1] := temp;
      end;
  writeln;
  for i := 1 to n do
    write(a[i]:5);
end.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.09.2018, 10:16

Записать сначала все отрицательные элементы, затем все положительные элементы во второй массив
Дан массив из 15 элементов. Записать сначала все отрицательные элементы, затем все положительные...

Записать во второй массив сначала все положительные элементы, затем нули и в конце — отрицательные элементы
Дан массив из 10 элементов. Записать во второй массив сначала все положительные элементы, затем...

Массив: переставить элементы таким образом, чтобы сначала были записаны все положительные, затем все отрицател
Переставить члены последовательности так, чтобы сначала расположились все ее неотрицательные члены,...


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

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

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