//PascalABC.NET версия 3.4.0.1677 от 17.06.18
//Если программа не запускается, то обновите версию
begin
var arr := ArrRandomInteger(30, -500, 500);
Println(arr);
arr.Sort;
Println(arr);
WritelnFormat('Минимальный элемент: B[{0}] = {1}', arr.IndexMin(), arr.Min());
end.
Ответ:
Если забить на указания к решению, можно сделать так:
записываешь уравнение прямой для каждой из сторон
для каждой из сторон можно по формуле вычислить расстояние от данной точки до этой прямой и
взять минимальное значение.
Канонической уравнение прямой на плоскости:
A*x+B*y+C=0
Уравнение прямой через точки A и B:
Параметрической (в векторном виде) :
P=A+(B-A)*t
В скалярной форме:
x=x0+ax*t
y=y0+bx*t
Из этой системы, избавляясь от t, получим каноническое уравнение прямой.
Формула расстояния от точки (x0; y0) до прямой A*x+B*y+C=0:
ro=abs(A*x0+B*y0+C)/sqrt(A^2+B^2)
Объяснение:
хранение информации
оперативная память долговременная память
внешние носители
Решение показано в прилагаемом файле.
Ответ: 77
люди , которые заводят животных и воспитывают их,ухаживают, ростят.