Question

Дана последовательность, состоящая из нулей и единиц. Поместить в начало этой последовательности все единицы, а затем все нули. В последовательности N чисел (Паскаль)

Answer 1

Ответ:

begin

 ArrRandom(ReadInteger('n='),0,1).Println.Sorted.Println

end.

Объяснение:

Пример

n= 15

0 0 1 1 0 1 1 1 1 0 0 1 1 0 1

0 0 0 0 0 0 1 1 1 1 1 1 1 1 1

Answer 2

Для решения данной задачи вам потребуется выполнить следующий алгоритм на языке Паскаль:

1. Создайте две переменные, которые будут считать количество нулей и единиц в последовательности.
2. Прочитайте последовательность чисел и для каждого числа увеличивайте соответствующую переменную (для единиц или нулей).
3. Создайте новый массив с размером N и заполните его сначала единицами, а затем нулями, используя значения из переменных, подсчитанных в первом шаге.
4. Выведите полученный массив на экран.

Приведу пример кода на Паскале, который реализует этот алгоритм:

pascalCopy code
program MoveOnesToStart;

const
  N = 10; // Задайте значение N в соответствии с размером вашей последовательности

var
  sequence: array[1..N] of Integer;
  onesCount, zerosCount, i: Integer;

begin
  onesCount := 0;
  zerosCount := 0;

  // Ввод последовательности из нулей и единиц
  writeln('Введите последовательность из ', N, ' чисел (0 или 1):');
  for i := 1 to N do
  begin
    read(sequence[i]);
    if sequence[i] = 0 then
      Inc(zerosCount)
    else if sequence[i] = 1 then
      Inc(onesCount);
  end;

  // Перемещение единиц в начало последовательности
  for i := 1 to onesCount do
    sequence[i] := 1;

  // Перемещение нулей в конец последовательности
  for i := onesCount + 1 to N do
    sequence[i] := 0;

  // Вывод результата
  writeln('Результат:');
  for i := 1 to N do
    write(sequence[i], ' ');
end.

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