Напишите наибольшее целое число, для которого истинно высказывание: НЕ(Число > 5000) И (Число нечётное)?​

О, наконец освободился этот слот, ну, в общем, смотри как надо было эту задачу решать:

#include <iostream>

#include <vector>

#include <set>

#define ll long long

using namespace std;

signed main() {

   ll n;

   cin >> n;

   vector<pair<ll,ll>> a(n);

   vector<ll> pref(n,0),d(n,0),ans(n,0);

   set<ll> s;

   for(ll i = 0; i < n; i++){

       cin >> a[i].first;

       a[i].second = i;

       s.insert(a[i].first);

       if(i == 0)

           pref[i] = a[i].first;

       else

           pref[i] = pref[i-1] + a[i].first;

       d[i] = s.size();

   }

   if(d[n-1] > 1 || n == 1)

       ans[a[n-1].second] = 1;

   for(ll i = n - 2; i >= 0; i--){

       if(pref[i] > a[i + 1].first && ans[a[i+1].second] == 1 && d[i] > 1)

           ans[a[i].second] = 1;

   }

   for(ll i = 0; i < n; i++)

       cout << ans[i] << " ";

}

Делал в PascalABC, но в Turbo тоже должно работать. Если не работает, попробуйте перед "End." вставить "Readln".

Program Kisa;
Begin     
 Writeln('$$$$');      Writeln('$___$$___$');      Writeln('$$');     Writeln('$sss___sss$');      Writeln('$іііі$');      Writeln('$$$$$');      Writeln('$$$');      Writeln('___$$$$$$$');      Writeln('$$$______$');      Writeln('$$$__$$__$');      Writeln('$$$__$$__$');      Writeln('$$_____$$__');      Writeln('$___$$$__$$___$___$');      Writeln('$__$$$__$$__$$');      Writeln('$___$$$__$$_$__$$');      Writeln('$__$$$___$_$$___$');      Writeln('$____$___$___$_$$___$');      Writeln('_$$$$$');      Writeln('$$$_$$$_$$$');      Writeln('___');
End.