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

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

30.09.2018, 12:27. Просмотров 302. Ответов 2
Метки нет (Все метки)

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

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

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

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

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

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

2
Пытливый
1460 / 750 / 272
Регистрация: 29.05.2013
Сообщений: 3,506
30.09.2018, 13:19 2
Ну а зачем дублировать тему? Вам уже дали ответ в прошлой.
0
Puporev
Модератор
57218 / 43667 / 30175
Регистрация: 18.05.2008
Сообщений: 104,103
30.09.2018, 13:47 3
Ей наверное типа такого нужно.
Delphi
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
38
39
40
41
42
43
44
45
46
47
48
49
procedure TForm1.Button1Click(Sender: TObject);
var a:array of integer;
    n,k,i,temp,j:integer;
begin
n:=strtoint(Edit1.Text);
setlength(a,n);
with stringgrid1 do
 begin
  rowcount:=1;
  colcount:=n;
  fixedrows:=0;
  fixedcols:=0;
  defaultcolwidth:=30;
 end;
with stringgrid2 do
 begin
  rowcount:=1;
  colcount:=n;
  fixedrows:=0;
  fixedcols:=0;
  defaultcolwidth:=30;
 end;
randomize;
for i:=0 to n-1 do
 begin
  a[i]:=-n div 2+random(n);
  stringgrid1.Cells[i,0]:=inttostr(a[i]);
 end;
k:=0;
for i:=0 to n-1 do
if a[i]=0 then
 begin
  inc(k);
  temp:=a[i];
  for j:=i downto k do
  a[j]:=a[j-1];
  a[k-1]:=temp;
 end;
for i:=k to n-1 do
for j:=k to n-2 do
if a[j]>0 then
 begin
  temp:=a[j];
  a[j]:=a[j+1];
  a[j+1]:=temp;
 end;
for i:=0 to n-1 do
stringgrid2.Cells[i,0]:=inttostr(a[i]);
end;
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.09.2018, 13:47

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

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

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


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

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

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