#include <iostream>
using namespace std;
int main() {
int n;
cin>>n;
int arr[n], k=0;
for (int i=0; i<n; ++i) {cin>>arr[i]; if (arr[i]==0) ++k;}
for (int i=0; i<n-1; ++i) {
for (int j=0; j<n-i-1; ++j) {
if (arr[j]>arr[j+1]) {
int temp;
temp=arr[j];
arr[j]=arr[j+1];
arr[j+1]=temp;
}
}
}
if (k>0) {
int m;
for (m=0; m<n; ++m) if (arr[m]==0) break;
for (int i=m; i<n-k; ++i) arr[i]=arr[i+k];
for (int i=n-k; i<n; ++i) arr[i]=0;
}
for (int i=0; i<n; ++i) cout<<arr[i]<<" ";
return 0;
}
30 байт, т.к 1 символ=8 бит, I=8*30=240 бит =>240/8=30 байт
<em>// PascalABC.NET 3.3, сборка 1542 от 05.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (n,m):=ReadInteger2('Введите через пробел n и m:');
var a:=ArrRandom(10,n,m);
a.Println
end.
<u>Пример</u>
Введите через пробел n и m: -6 20
15 10 16 17 1 14 -4 19 1 18