Разбить один стек на два: положительные и отрицательные элементы отдельно

@pomogitse · Регистрация: 22.01.2020

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

Создать стек со случайными целыми числами в диапазоне –50 до +50 и преобразовать его в два стека. Первый должен содержать только положительные числа, а второй - отрицательные. Порядок чисел должен быть сохранен, как в первом стеке.

Помогите пожалуйста, буду очень благодарен!

@JuriiMW · 23.01.2020, 04:49

Pascal

begin
  var стек := New Stack<integer>;
  loop ReadInteger do стек.Push( Random(-50,+50) );
  стек.Println;
  var временныйстек := New Stack<integer>;
  while стек.Count > 0 do временныйстек.Push( стек.Pop );
  var(положительные, отрицательные) := (New Stack<integer>, New Stack<integer>);
  while временныйстек.Count > 0 do
    if временныйстек.Peek < 0 then
      отрицательные.Push( временныйстек.Pop )
    else
      положительные.Push( временныйстек.Pop );
  'положительные:'.Print;положительные.Println;
  'отрицательные:'.Print;отрицательные.Println;
end.

@pomogitse 0 / 0 / 0 Регистрация: 22.01.2020 Сообщений: 11
		1
	Разбить один стек на два: положительные и отрицательные элементы отдельно 22.01.2020, 16:24. Показов 1998. Ответов 1 Метки stack, паскаль, стек (Все метки) Создать стек со случайными целыми числами в диапазоне –50 до +50 и преобразовать его в два стека. Первый должен содержать только положительные числа, а второй - отрицательные. Порядок чисел должен быть сохранен, как в первом стеке. Помогите пожалуйста, буду очень благодарен! 0

Опции темы

Разбить один стек на два: положительные и отрицательные элементы отдельно

Решение