Pascalabc.net 3.4.0, сборка 1675 от 12.06.2018 внимание! если программа не работает, обновите версию! procedure println(self: array of real); extensionmethod; begin self.batch(5).foreach(s-> begin foreach var p in s do write(p: 15: 10); writeln end); writeln(min(15*(self.count div 2),38)*'- ') end; begin var m: =arrgen(readinteger('n='),i-> cos(i),1); m.println; var (a,b): =readreal2('введите границы a b: '); writeln('число элементов на интервале [',a,',',b,'] равно ', m.where(t-> t.between(a,); write('сумма элементов, расположенных после максимального, равна '); var imax: =m.indexmax; (m? [imax+1: ].sum).println; writeln('элементы, по убыванию модулей'); m: =m.orderbydescending(t-> abs(; m.println; end.
mdubov59
10.01.2020
Потенциально нежелательные программы - программы, которые не рекомендованы для запуска на вашем устройстве, т.к. могут навредить вашему компьютеру. Могут пострадать многие системные файлы, также может быть потеряна важная информация БЕЗ возможности восстановления и множество других нежелательных для вас действий.
Проще говоря - это программы-вирусы.
Чтобы избежать заражение компьютера подобными программами, рекомендуется установить специальные утилиты для защиты вашего ПК (антивирусы) от потенциально нежелательных программ.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Сообщение на тему "как можно заменить один орган чувств"