Question

Дана последовательность,которая состоит из 0 и единицы,переместите в начало последовательности все нули,а затем все еденицы.Напишите пожалуйста на языке паскаль,и можно ли пожалуйста без рандома,чтоб понятно была на школьном уровне,заранее спасибо

Answer 1

program zadacha;

var

a: array[1..1000] of byte;

i,j,n,k:integer;

begin

writeln('vvedite kol-vo elementov massiva');

readln(n);

writeln('vvedite elementi massiva');

for i:=1 to n do read(a[i]);

 

for i:=1 to n-1 do

for j:=1 to n-1 do

if a[j]>a[j+1] then begin

k:=a[j];

a[j]:=a[j+1];

a[j+1]:=k;

end;

write('massiv posle sortirovki:');

for i:=1 to n do

write(a[i]:4);

writeln;

end.

Answer 2

Конечно, вот пример кода на языке Паскаль, который выполняет указанную вами задачу:

pascalCopy code
program MoveZerosAndOnes;
const
  MaxSize = 100; // Максимальный размер последовательности
var
  sequence: array[1..MaxSize] of Integer;
  n, i, temp: Integer;

begin
  // Ввод размера последовательности
  writeln('Введите размер последовательности:');
  readln(n);
  
  // Ввод элементов последовательности
  writeln('Введите элементы последовательности (0 или 1):');
  for i := 1 to n do
    read(sequence[i]);

  // Перемещение нулей в начало последовательности
  for i := 1 to n do
  begin
    if sequence[i] = 0 then
    begin
      temp := sequence[i];
      sequence[i] := sequence[1];
      sequence[1] := temp;
    end;
  end;

  // Вывод результирующей последовательности
  writeln('Результат:');
  for i := 1 to n do
    write(sequence[i], ' ');
end.

Программа сначала запрашивает размер последовательности, затем элементы этой последовательности. Затем она выполняет перемещение нулей в начало последовательности путем обмена с первым элементом. Наконец, программа выводит результат – полученную последовательность.