Напишите, , программу на pascal. дан одномерный массив. определить, могут ли его элементы образовать возрастающую последовательность после удаления одного из элементов.

123

284

Посмотреть ответы 2

Ответы на вопрос:

Никитаотличник1

Информатика

4,6(39 оценок)

//pascalabc.net 3.2 сборка 1318 const n=5; var ar: array[1..n] of integer; couofdel,i: integer; begin for i: =1 to n do readln(ar[i]); for i: =2 to n do if ar[i-1]> ar[i] then inc(couofdel); if couofdel> 1 then writeln('нет') else writeln('да'); end. пример ввода: 1 2 2 1 3 пример вывода: да

Yugeom

Информатика

4,7(44 оценок)

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