[any] Pascal: (без хранения введённых чисел => "эффективная")
var a, i, x: integer; begin for i := 1 to 6 do begin read(a); if a>0 then x := x + 1 else if a<0 then x := x - 1 end; if x>0 then write('Больше положительных') else if x<0 then write('Больше отрицательных') else write('Одинаково')end.PascalABC.NET: (с хранением введённых чисел в массиве)
## var a := ReadArrInteger(6); var x := a.Sum(x -> x>0 ? 1 : -1); if x=0 then Write('Одинаково') else Print('Больше', x>0 ? 'положительных' : 'отрицательных')Пример работы:
ответ:А́вторское пра́во — в объективном смысле — институт гражданского права, регулирующий правоотношения, связанные с созданием и использованием (изданием, исполнением, показом и т. д.) произведений науки, литературы или искусства, то есть объективных результатов творческой деятельности людей в этих областях. Программы для ЭВМ и базы данных также охраняются авторским правом. Они приравнены к литературным произведениям и сборникам, соответственно[1].
Авторское право включает как неимущественные (моральные) права автора, которые действуют бе так и имущественные права на использование произведения, которые автор может передавать другим лицам.
Английский термин копира́йт © (англ. copyright, от «копировать» и «право») в английском языке обозначает имущественное авторское право, то есть право копировать, воспроизводить[2].
Срок защиты имущественных в большинстве стран зависит от продолжительности жизни автора и составляет 70 лет после его смерти, после чего произведение переходит в общественное достояние.
Объяснение: