Найдите наибольшее число x, для которого высказывание НЕ (x > 47) И НЕ (сумма цифр числа x больше 5) принимает истинное значение.

— осуществление диалога с пользователем;— ввод-вывод и управление данными;— планирование и организация процесса обработки программ;— распределение ресурсов (оперативной памяти и кэша, процессора, внешних устройств);— запуск программ на выполнение;— всевозможные вс операции обслуживания;— передача информации между различными внутренними устройствами;— программная поддержка работы периферийных устройств (дисплея, клавиатуры, дисковых накопителей, принтера и др.).— организация среды взаимодействия и обмена информацией между работающими программами.

// PascalABC.NET 3.2, сборка 1361 от 12.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandomReal(ReadInteger('n='),-10,10); a.Println;
  a:=a.Select((x,i)->i mod 2=0?x+1:x-1).ToArray; a.Println
end.

Пример
n= 10
-9.05843428292239 -4.25451094017108 9.66351874157019 -3.1105665178553 4.8065062215582 -2.02809873597142 4.59844561973514 -4.45959216657076 1.37816560984504 -7.69115956392659
-8.05843428292239 -5.25451094017108 10.6635187415702 -4.1105665178553 5.8065062215582 -3.02809873597142 5.59844561973514 -5.45959216657076 2.37816560984504 -8.69115956392659