Переписать сначала отрицательные, а затем положительные элементы из одного массива в другой

@Magura · Регистрация: 03.02.2014

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

Здраствуйте,помогите решить.

Переписать сначала отрицательные ,а затем положительные элементы массива BC(N) в массив ZBC
N<=20

@ildwine · 04.02.2014, 11:22

Pascal

var
  BC, ZBC : array [1..20] of integer;
  i, j, n1, n2 : integer;
begin
  n2 := 0;
  randomize;
  repeat
    write('введите размерность массива BC (n <=20): ');
    readln(n1)
  until n1 in [1..20];
  writeln('массив BC:');
  for i := 1 to n1 do
  begin
    BC[i] := random(20) - 10;
    write(BC[i]:4);
    if BC[i] <> 0 then inc(n2) {считаем размер будущего массива ZBC}
  end;
  writeln;
  writeln('массив ZBC:');
  j := 1;
  for i := 1 to n1 do
    if BC[i] < 0 then
    begin
      ZBC[j] := BC[i];
      inc(j)
    end;
  for i := 1 to n1 do
    if BC[i] > 0 then
    begin
      ZBC[j] := BC[i];
      inc(j)
    end;
  for i := 1 to n2 do
    write(ZBC[i]:4);
  readln   
end.

@Cyborg Drone · 04.02.2014, 11:29

С сохранением порядка следования элементов

Pascal

const m = 20;
 
var i, o, n: integer;
    bc, zbc: array [1..m] of integer;
 
begin
  randomize;
  repeat
    write('n = ');
    readln(n);
    if (n < 1) or (n > m) then writeln('n out of range 1..', m, ', reenter.')
  until (n >= 1) and (n <= m);
  o := 1;
  writeln('Source array:');
  for i := 1 to n do
    begin
      bc[i] := random(199) - 99;
      write(bc[i]:4);
      if bc[i] < 0
        then begin
          zbc[o] := bc[i];
          inc(o)
        end
    end;
  writeln;
  writeln('Result:');
  for i := 1 to n do
    begin
      if bc[i] >= 0
        then begin
          zbc[o] := bc[i];
          inc(o)
        end;
      write(zbc[i]:4)
    end;
  readln
end.

Без сохранения порядка следования положительных элементов

Pascal

const m = 20;
 
var i, o, p, n: integer;
    bc, zbc: array [1..m] of integer;
 
begin
  randomize;
  repeat
    write('n = ');
    readln(n);
    if (n < 1) or (n > m) then writeln('n out of range 1..', m, ', reenter.')
  until (n >= 1) and (n <= m);
  o := 1;
  p := n;
  writeln('Source array:');
  for i := 1 to n do
    begin
      bc[i] := random(199) - 99;
      write(bc[i]:4);
      if bc[i] < 0
        then begin
          zbc[o] := bc[i];
          inc(o)
        end
        else begin
          zbc[p] := bc[i];
          dec(p)
        end;
    end;
  writeln;
  writeln('Result:');
  for i := 1 to n do write(zbc[i]:4);
  readln
end.

@Magura · 04.02.2014, 17:55 **[ТС]**

ildwine, Спасибо.

Добавлено через 16 секунд
Cyborg Drone, Спасибо большое.

@Magura · 19.02.2014, 20:43 **[ТС]**

Cyborg Drone, как ввести этот же массив не использую рандомайз?

@Cyborg Drone · 20.02.2014, 00:09

??? ну хорошо, напишу. Уберите строчки

Pascal

1 2	randomize; bc[i] := random(199) - 99;

перед

Pascal

1	writeln('Source array:');

напишите

Pascal

writeln('Enter elements of array:');
for i := 1 to n do 
  begin
    write('bc[', i, '] = ');
    readln(bc[i])
  end;

если символов в числах, включая знак, будет больше 4, подправьте все строчки

Pascal

1 2	write(bc[i]:4); write(zbc[i]:4)

под необходимое число символов.

Не по теме:

Не понимаю, как Вам НЕ удалось подрихтовать всё самостоятельно.

Переписать сначала отрицательные, а затем положительные элементы из одного массива в другой

Решение

Решение

@Magura 0 / 0 / 0 Регистрация: 03.02.2014 Сообщений: 22
		1
	Переписать сначала отрицательные, а затем положительные элементы из одного массива в другой 03.02.2014, 21:20. Показов 3008. Ответов 5 Метки нет (Все метки) Здраствуйте,помогите решить. Переписать сначала отрицательные ,а затем положительные элементы массива BC(N) в массив ZBC N<=20 0

@Magura 0 / 0 / 0 Регистрация: 03.02.2014 Сообщений: 22
	04.02.2014, 17:55 [ТС]	4
	ildwine, Спасибо. Добавлено через 16 секунд Cyborg Drone, Спасибо большое. 0

@Magura 0 / 0 / 0 Регистрация: 03.02.2014 Сообщений: 22
	19.02.2014, 20:43 [ТС]	5
	Cyborg Drone, как ввести этот же массив не использую рандомайз? 0

	20.02.2014, 00:09

Опции темы