PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018 Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('n='); var x:=ArrRandom(n,-5,25); x.Println; var y:=ArrRandom(n,-5,25); y.Println; var z:=x.Zip(y,(p,q)->p-q).ToArray; z.Println; var s:=z.Sum; var c:=s<0 ? 'отрицательный' : s=0 ? 'отсутствует' : 'положительный'; Writeln('Сумма равна ',s,', знак суммы ',c) end.
Попробуйте вызвать диспетчер : либо при одновременного нажатия клавиш ctrl+shift+esc, либо просто кликнув правой клавишей мыши по панели . найдите процесс "проводник" или explorer), кликните по нему правой кнопкой мыши и нажмите "перезапустить". если первый способ не , пробуем второй вариант: запустить пуск при power для этого зайдите в "компьютер" -> "диск с" -> "windows" -> "system32" -> "windowspowershell" и запустите приложение powershell и в открывшемся окне приложения введите команду: get-appxpackage -allusers | foreach {add-appxpackage -disabledevelopmentmode -register “$($_.installlocation)\appxmanifest.xml”} закройте приложение, проверьте - теперь меню "пуск" должно открыться. если оба способа не , попробуйте создать нового пользователя. для этого нажмите "win+r", чтобы открыть панель введите слово "control", нажмите ок. в открывшемся окне "все элементы панели " найдите "учетные записи пользователей", выберите " другой учетной записью" , затем "добавить нового пользователя". таким образом можно создать нового пользователя, на которого перенести все файлы предыдущего пользователя, после чего просто удалить старую учетную запись. если ничего не сработало - придется переустанавливать windows.
для обрезки видео
Объяснение:
рндактировать это как бы ремонтировать