Создание гиперссылки не позволяет связать выделенный объект с ответы: 1.местом в документе 2.новым документом 3. файлом веб страницей 4. новым устройством

Ответ: 4. новым устройством

Type   point=record       x,y: real   end;   function distance2(a,b: point): real;   { возвращает квадрат расстояния между точками } begin   distance2: =sqr(b.x-a.x)+sqr(b.y-a.y) end; function max(p,q: real): real;   { возвращает максимальное из p,q } begin   if p> q then max: =p else max: =q end; procedure vvod(var a: point; n: integer);   { процедура с изменяемым параметром a } begin   write('введите координаты точки ',n,': ');   readln(a.x,a.y) end; var   a: array[1..3] of point;   d1,d2,d3: real;   i: integer; begin   for i: =1 to 3 do vvod(a[i],i);   d1: =distance2(a[1],a[2]);   d2: =distance2(a[1],a[3]);   d3: =distance2(a[2],a[3]);   if d1> d2 then       if d1> d3 then writeln('максимальное расстояние 1-2')       else           if d1=d3 then writeln('максимальное расстояние 1-2 и 2-3')           else writeln('максимальное расстояние 2-3')   else       if d1=d2 then           if d1> d3 then writeln('максимальное расстояние 1-2 и 1-3')           else               if d1=d3 then writeln('расстояния между всеми точками одинаковы')               else writeln('максимальное расстояние 2-3')       else           if d3> d2 then writeln('максимальное расстояние 2-3')           else               if d3=d2 then writeln('максимальное расстояние 1-3 и 2-3')               else writeln('максимальное расстояние 1-3'); end. тестовое решение: введите координаты точки 1: -2 1 введите координаты точки 2: 4 5 введите координаты точки 3: 2 -2 максимальное расстояние 2-3

1) var z: array[1..30] of integer;   i,max,min,s: integer; beginfor i: =1 to 30 do  z[i]: =random(100); max: =z[1]; min: =z[1]; for i: =1 to 30 do     if z[i]> max then max: =z[i]; for i: =1 to 30 do     if z[i]< min then min: =z[i]; for i: =1 to 30 do   if z[i]< ((max+min)/2) then s: =s+z[i]; write('s= ',s); end.2)var m: array[1..30] of integer;   i,max,s: integer;   z: real; beginfor i: =1 to 30 do  m[i]: =random(100); max: =m[1]; for i: =1 to 30 do   if m[i]> max then max: =m[i]; for i: =1 to 30 do   if   m[i]> 0 then s: =s+m[i]; z: =(s+max)/3; write('z= ',z: 0: 0); end.