Отсортировать массив - Pascal

  1. помогите. Линейный целочисленный массив размером N заполнен только нулями и единицами в произвольном порядке. Вам следует переместить элементы так, чтобы в начале массива были нули, а затем единицы. Формат ввода В первой строке входного файла input.txt записано одно число N (N ≤ 1000). Во второй строке записано N нулей и единиц через пробел. Формат вывода В выходном файле output.txt в единственной строку вывести новый массив в котором вначале расположены все нули, а затем единицы


textual

Код к задаче: «Отсортировать массив - Pascal»

var i, n, z, t: integer;
begin
  //assign(input, 'input.txt');
  //reset(input);
  z := 0;
  readln(n);
  for i := 1 to n do
    begin
      read(t);
      if t = 0 then inc(z)
    end;
  //close(input);
  //assign(output, 'output.txt');
  //rewrite(output);
  for i := 1 to z do write(0:2);
  for i := z + 1 to n do write(1:2)//;
  //close(output)
end.

СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 4.250 из 5



Похожие ответы
  1. Составить программу. Пусть дан массив из n элементов.Каждый отрицательный элемент замените полусуммой тех двух элементов, которые стоят с ним справа и слева. Помогите пожалуйста.

  1. Помогите написать программу: В массиве из 10 целых чисел подсчитать сумму элементов более чем в 2 рах превышающих минимальный.

  1. Здравствуйте,помогите пожалуйста написать программу.Напишите программу, которая выполняет реверс массива целых чисел, то есть переставляет все элементы в обратном порядке. Размер массива заранее неизвестен. Исходные данные записаны в файл input.txt , обработанный массив нужно вывести в файл output.txt . Входные данные Первая строка входного файла input.txt содержит размер массива. Во второй строке записаны все элементы массива, разделённые пробелами. Выходные данные Программа должна вывести в файл output.txt все элементы «перевёрнутого» массива в одной строке, разделив их пробелами. Примеры входные данные 5 5 1 4 2 3 выходные данные 3 2 4 1 5

  1. дан массив. после каждого элемента вставте такой же.

  1. 2. Сформировать двумерный динамический массив. Добавить в него строку с заданным номером;

  1. Помогите решить задание, это не выполнимое задание. Вариант 2 1. Поменять местами строки 5 и 6. Вывести получившийся массив на экран. 2. Поменять местами столбцы 3 и 4. Вывести получившийся массив на экран. 3. Изменить порядок элементов в строке 8 на обратный. Вывести по-лучившийся массив на экран. 4. Изменить порядок элементов в столбце 1 на обратный. Вывести по-лучившийся массив на экран. 5. Осуществить перестановку соседних элементов в 2ом столбце. Вы-вести получившийся массив на экран. 6. Обменять половины строки 3 местами. Вывести получившийся мас-сив на экран. 7. Транспонировать матрицу: 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 3 3 3 3 3 3 3 3 4 4 4 4 4 4 4 4 5 5 5 5 5 5 5 5 6 6 6 6 6 6 6 6 7 7 7 7 7 7 7 7 8 8 8 8 8 8 8 8

  1. В произвольно заданном одномерном массиве определить два элемента с минимальными значениями и уменьшить исходный массив на элементы, расположенные между найденными значениями.

  1. Нужно написать программу, которая оптимизированно осуществит переход от шестимерного массива к трехмерному, желательно в паскале. Прошу помощи, заранее благодарен!!!

  1. Составит программу, в которой вводится размер массива (одномерный). Выделить память, отсортировать элементы массива по убыванию. Освободить память. Сделайте пожалуйста через динамический массив, заранее спасибо