Дана последовательность,которая состоит из 0 и единицы,переместите в начало последовательности все нули,а затем все еденицы.Напишите пожалуйста на языке паскаль,и можно ли пожалуйста без рандома,чтоб понятно была на школьном уровне,заранее спасибо
More Questions From This User See All
Answers & Comments
programzadacha;
var
a:array[1..1000] of byte;
i,j,n,k:integer;
begin
writeln('vveditekol-vo elementov massiva');
readln(n);
writeln('vvediteelementi massiva');
for i:=1 ton do read(a[i]);
for i:=1 ton-1 do
for j:=1 ton-1 do
ifa[j]>a[j+1] then begin
k:=a[j];
a[j]:=a[j+1];
a[j+1]:=k;
end;
write('massivposle sortirovki:');
for i:=1 ton do
write(a[i]:4);
writeln;
end.