Решить! если можно с объяснением

Внаше время важным фактором есть защита личных данных.мы привыкли качать разные файлы с интернета и даже не думать о их вреде и пользе,было ли у вас такое что вы хотели скачать с какого то сайта программу а вам с ней установился какой то странный браузер,думаю да.каждый человек при загрузке разных файлов имеет риск подцепить вирус,троян либо даже винлокер.думаю теперь у вас возник вопрос,как себя защитить? просто,в наше время есть много разных и по защите и по нагрузке на систему антивирусов,которые запросто вам уберечь свои данные и нервы.но всё же главной защитой будет внимательность,веть ничего нельзя установить без вашего соглашения,перед тем как быстро кликать далее во время установки внимательно следите за соглашениями и ваши личные данные будут оставаться личными.

Pascalabc.net 3.3.5, сборка 1669 от 21.05.2018 внимание! если программа не работает, обновите версию! 1. функция function avg(a: array of integer): =a.where(t-> t> 0).average; begin   var a: =readalltext('input.txt').tointegers;   writeln('среднее значение положительных элементов ',avg(a)) end. 2. процедура procedure avg(a: array of integer; var m: real); begin   m: =a.where(t-> t> 0).average end; begin   var a: =readalltext('input.txt').tointegers;   var m: real;   avg(a,m);   writeln('среднее значение положительных элементов ',m) end. хорошо видно, что решение с функцией имеет явное преимущество.