1. Информатика
  2. Дана последовательность,

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

darina2340 darina2340    1   30.04.2020 09:55    1

Ответы
elmariya elmariya  14.10.2020 04:10

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

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
kburuncenco307 kburuncenco307  03.09.2019 00:20
Удалить из строки все слова , заканчивающиеся на гласную букву. написать программку на с++...
polykoly polykoly  03.09.2019 00:20
Найти ошибку (информатика, паскаль). var s,k,a: integer; begin s: =0; k: =0; read(a); while a 0 do begin if a mod 8=0 then begin s: =s+a; k: =k+1; end; readln(a); end;...
1innic11 1innic11  03.09.2019 00:20
1. вычислите значение функции у=2х(в квадрате) + 4х-2 на отрезке (0.17) с шагом 1.5...
Маша923892 Маша923892  03.09.2019 00:20
Составить программу в дано а(n,m). найти номер строки, где находится первый элемент, кратный 5. поменять местами последнюю и найденную строку....
Marina1023 Marina1023  03.09.2019 00:20
Вычислите произведение, если n вводится с клавиатуры: n(1-n)(2-n)(3--1)-n) ....
12235110spl 12235110spl  25.02.2022 22:13
9.Дан фрагмент кода программы. z=0 for x in range (2,7,2): z=x Сколько раз выполнится тело цикла?...
Alllllllex Alllllllex  13.06.2019 20:40
Порівняйте планшетний комп ютер і смартфон. що в них спільного і що відмінного?...
wikkouiii wikkouiii  13.06.2019 20:30
Скорость передачи данных по некоторому каналу связи равна 256 000 бит/с. передача данных через это соединение заняла 2 минуты. определите информационный объём данных...
cheknutyi cheknutyi  29.01.2022 01:08
Сформирируйте алгоритм: оплаты мобильной связи через терминал....
5628462847 5628462847  29.01.2022 01:04
Сможет ли мой Компьютер потянуть игру Genshin Impact? Процессор: Intel Core i3 3225 CPU 3.30GHzВидеокарта: Intel HD 4000Оперативка: 6 гбWindows 10Если нет, то в какие...

Популярные вопросы