А́вторское пра́во — в объективном смысле — институт гражданского права, регулирующий правоотношения, связанные с созданием и использованием (изданием, исполнением, показом и т. д.) произведений науки, литературы или искусства, то есть объективных результатов творческой деятельности людей в этих областях. Программы для ЭВМ и базы данных также охраняются авторским правом. Они приравнены к литературным произведениям и сборникам, соответственно[1].
Интеллектуа́льная со́бственность — в широком понимании термин означает закреплённое законом временное исключительное право, а также личные неимущественные права авторов на результат интеллектуальной деятельности или средства индивидуализации[1].
const
n=5;m=7;
var
a:array[1..n,1..m]of integer;
b:array[1..m]of real;
i,j,k,c:integer;
s:real;
begin
clrScr;
for i:=1 to n do
begin
writeln;
for j:=1 to m do
begin
a[i,j]:=random(30);
write(a[i,j]:4);
end;
end;
writeln;
for j:=1 to m do
begin
s:=0;k:=0;
for i:=1 to n do
if a[i,j]mod 2<>0 then
begin
s:=s+a[i,j];
k:=k+1;
end;
if k<>0 then
begin
c:=c+1;
b[c]:=s/k;
end;
end;
for i:=1 to c do
write(b[i]:8:2);
readkey;
end.