<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=Arr(30,-30,94,45,-6,1,2,-50,25,-84,-55,-33,-31,-66,
34,72,26,-3,-13,27,-97,57,-42,29,-9);
Writeln('Исходный массив'); a.Println;
Sort(a);
Writeln('Упорядоченный по возрастанию массив'); a.Println;
Writeln('Максимальный элемент ',a.Last,', минимальный ',a.First)
end.
<u>Пример</u>
Исходный массив
30 -30 94 45 -6 1 2 -50 25 -84 -55 -33 -31 -66 34 72 26 -3 -13 27 -97 57 -42 29 -9
Упорядоченный по возрастанию массив
-97 -84 -66 -55 -50 -42 -33 -31 -30 -13 -9 -6 -3 1 2 25 26 27 29 30 34 45 57 72 94
Максимальный элемент 94, минимальный -97
//Если принципиально важно считывать int, то первый вариант, иначе - второй
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n;
cin >> n;
vector<int> a;
for (int i = 1000; i >= 1; i/=10)
if (n/i == 5 || n/i == 0)n%=i;
else a.push_back(n/i),n%=i;
for (int i = 0; i < a.size();++i)
cout << a[i];
}
------------------------------
#include <bits/stdc++.h>
using namespace std;
int main()
{
string s;
cin >> s;
for (int i = 0; i < s.length(); ++i)
if (s[i] == '5' || s[i] == '0')
s.erase(i,1),i--;
cout << s;
}