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

@vladganja · Регистрация: 23.09.2013

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

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

@erl27 · 08.11.2013, 13:52

Pascal

var
  A, B: array[1..1000] of integer;
  i, N, c: integer;
 
begin
  randomize;
  N := 15 + random(100);
  c := 0;
  writeln('Исходный случайный массив:');
  for i := 1 to N do
  begin
    a[i] := -100 + random(201); //случайное число [-100, 100]
    if a[i] > 0 then begin inc(c); b[c] := a[i] end;
    write(' ', a[i])
  end;
  for i := 1 to N do
    if a[i] <= 0 then begin inc(c); b[c] := a[i] end;
  writeln;
  writeln;
  writeln('Результат:');
  for i := 1 to N do write(' ', b[i]);
end.

@vladganja 2 / 2 / 2 Регистрация: 23.09.2013 Сообщений: 34
		1
	Сформировать массив, в котором будут располагаться сначала положительные элементы, а затем отрицательные 08.11.2013, 12:54. Показов 1853. Ответов 1 Метки нет (Все метки) Сформировать массив, в котором будут располагаться сначала положительные элементы, а затем отрицательные элементы данного массива. 0

	08.11.2013, 13:52

Опции темы

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

Решение