Var K:array[1..2,1..13] of integer; i,j,ind,x,y:integer; MAX:real; function RAST(x1,x2,y1,y2:integer):real; begin RAST:=sqrt(sqr(x2-x1)+sqr(y2-y1)); end; begin MAX:=-2*sqr(-10-1); randomize; writeln('Исходные точки:'); for j:=1 to 13 do begin writeln('Точка № ',j,', с координатами(X,Y)'); for i:=1 to 2 do begin K[i,j]:=random(110) - 10; write(K[i,j],' '); end; writeln; end; for i:=1 to 13 do if RAST(0,K[1,i],0,K[2,i])>MAX then begin MAX:=RAST(0,K[1,i],0,K[2,i]); x:=K[1,i]; y:=K[2,i]; ind:=i; end; writeln('Номер точки: ',ind,' Координаты: ',x,' ; ',y); end.
Моя комната розовая идёшь когда идёшь по коричневому коридору сразу можно увидеть.в моей комнате весят фиолетовые шторы.а на обоях нарисованы звёзды когда ночь они светятся.у меня в комнате есть свой стол на нём я делаю уроки или рисую.если мне страшно одной в темноте я включаю ночник.есть мой собственный шкаф там у меня одежда туфли и разные шляпы.на полке стоит телевизор.кровать у меня бежевая.а в полке у меня школьные предметы.мой портфель стоит в коридоре.в коридоре у меня моя куртка обувь и шапки.есть зеркало а по краям зеркала есть полки маленькие.там духи кремы и всё прочие.
Человек
Министр
Монстр
Организм
Полностью