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

@Elizar1 · Регистрация: 03.06.2014

Author24 — интернет-сервис помощи студентам

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

@Don_Omare · 17.06.2014, 15:32

Pascal

uses
  crt;
 
const
  n = 10;
 
var
  i: integer;
  a: array[1..n] of integer;
 
begin
  for i := 1 to n do
  begin
    a[i] := random(5) - random(5);
    write(a[i], ' ');
  end;
  Writeln();
  for i := 1 to n do
    if a[i] > 0 then
      write(a[i], ' ');
  for i := 1 to n do
    if a[i] < 0 then
      write(a[i], ' ');
  for i := 1 to n do
    if a[i] = 0 then
      write(a[i], ' ');
  readln;     
end.

@Sergio Leone · 17.06.2014, 16:38

Don_Omare, ваша программа просто выводит значения в нужном порядке.
А по заданию нужно ПЕРЕСТАВИТЬ числа в исходном массиве:

Сообщение от Elizar1

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

@Don_Omare · 18.06.2014, 11:51

Я выдал основную логику. Думаю автор темы в состоянии дописать три одинаковые новые строчки и задать новый массив

Pascal

  
           ...
  for i := 1 to n do
    if a[i] = 0 then
    Begin
      inc(j);
      b[j]:=a[i];
    End;
          ...

@Sergio Leone · 18.06.2014, 13:39

Сообщение от Don_Omare

дописать три одинаковые новые строчки и задать новый массив

ну, с новым массивом это вообще не задача, а фикция.
Вы попробуйте обойтись одним единственным исходным массивом и в нём переставить.

p.s. впрочем, это я не к тому, что Вам надо писать этот код, пусть автор темы разруливает, что и как ему надо.
А моё дело - сторона!

@Elizar1 0 / 0 / 0 Регистрация: 03.06.2014 Сообщений: 12
		1
	Переставить числа в массиве: положительные, отрицательные, нули, с сохранением изначального порядка следования 17.06.2014, 12:16. Показов 1931. Ответов 4 Метки нет (Все метки) Дан массив целых чисел,содержащий 10 элементов.Записать в этот же массив сначало все положительные,затем отрицательные,затем нули, сохраняя их порядок следования в массиве. Нужна программа и блок-схема. 0

@Sergio Leone 2509 / 1130 / 582 Регистрация: 07.06.2014 Сообщений: 3,286
	17.06.2014, 16:38	3
	Don_Omare, ваша программа просто выводит значения в нужном порядке. А по заданию нужно ПЕРЕСТАВИТЬ числа в исходном массиве: Сообщение от Elizar1 Записать в этот же массив сначало все положительные,затем отрицательные,затем нули, сохраняя их порядок следования в массиве. 0

@Sergio Leone 2509 / 1130 / 582 Регистрация: 07.06.2014 Сообщений: 3,286
	18.06.2014, 13:39	5
	Сообщение от Don_Omare дописать три одинаковые новые строчки и задать новый массив ну, с новым массивом это вообще не задача, а фикция. Вы попробуйте обойтись одним единственным исходным массивом и в нём переставить. p.s. впрочем, это я не к тому, что Вам надо писать этот код, пусть автор темы разруливает, что и как ему надо. А моё дело - сторона! 0

Опции темы