А́вторское пра́во — в объективном смысле — институт гражданского права, регулирующий правоотношения, связанные с созданием и использованием (изданием, исполнением, показом и т. д.) произведений науки, литературы или искусства, то есть объективных результатов творческой деятельности людей в этих областях. Программы для ЭВМ и базы данных также охраняются авторским правом. Они приравнены к литературным произведениям и сборникам, соответственно[1].
Интеллектуа́льная со́бственность — в широком понимании термин означает закреплённое законом временное исключительное право, а также личные неимущественные права авторов на результат интеллектуальной деятельности или средства индивидуализации[1].
n = 40;
var
x: array[1..n] of integer;
procedure InitMas(p: integer);
var
i: integer;
begin
Writeln('Элементы массива');
for i := 1 to p do
begin
x[i] := Random(101) - 50;
Write(x[i]:4);
end;
Writeln
end;
function avg(m: integer): real;
var
i, s: integer;
begin
s := 0;
for i := 1 to m do s := s + x[i];
avg := s / m
end;
begin
Randomize;
InitMas(10);
Writeln('Среднее арифметическое равно ', avg(10))
end.
Тестовое решение:
Элементы массива
44 -40 -1 9 48 -12 48 -39 -13 32
Среднее арифметическое равно 7.6