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

Формулировка задачи:

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


textual

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

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


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

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

Источник
Похожие ответы