Program Julia9696; uses crt; const n=10; m=8; var A:array[1..n,1..m] of integer; cur,up,right,down,left,qw,i,j:integer; begin; randomize; writeln(' Alphaeus ');writeln; writeln ('Програма пошуку всіх елементів масиву А[1..n, 1..m], що менші, ніж усі сусідні'); for i:=1 to n do begin for j:=1 to m do begin A[i,j]:=random(101)-50; write(A[i,j]:3, ' '); end; writeln; end; writeln; qw:=0; for i:=1 to n do for j:=1 to m do begin cur:= A[i,j]; up:=0; right:=0;down:=0;left:=0; if i>1 then begin if cur<A[i-1,j] then up:=1; end else up:=1; if i<n then begin if cur<A[i+1,j] then down:=1; end else down:=1; if j>1 then begin if cur<A[i,j-1] then left:=1; end else left:=1; if j<m then begin if cur<A[i,j+1] then right:=1; end else right:=1; if up+right+down+left=4 then begin qw:=qw+1; writeln('Елемент масиву À[',i,',',j,'], що рівний ',A[i,j]:3,', є меншим за своїх сусідів'); end; end; writeln('Всього таких елементів: ',qw); end.
Угол - это часть плоскости, ограниченная двумя лучами, выходящими из одной точки.
Точка называется вершиной угла, а лучи - сторонами угла.
Если стороны угла образуют прямую (являются дополнительными лучами), то угол называется развернутым.
Углы измеряются в градусах. Градус - это 1/180 часть развернутого угла.
Виды углов в зависимости от градусной меры:
Если градусная мера угла меньше 90°, то угол острый.
Если градусная мера угла равна 90°, то угол прямой.
Если градусная мера угла больше 90°, но меньше 180°, то угол тупой.
Если градусная мера угла равна 180°, то угол развернутый.
Два угла называются вертикальными, если их стороны являются дополнительными лучами.
Свойство вертикальных углов: вертикальные углы равны.
Два угла называются смежными, если одна сторона у них общая, а две другие являются дополнительными лучами.
Свойство смежных углов: сумма смежных углов равна 180°.
Биссектриса угла - это луч с началом в вершине угла, который делит угол на две равные части.