Var c,k1,k2,i,min,max: integer;
begin
min:=m[0]; max:=m[0];
for i:=0 to N do begin // тут вот N - размер массива, m - массив
if (m[i]>max) then begin
max:=m[i];
k1:=i
end;
if (m[i]
Нужно составить уравнения трех прямых, ограничивающих область (см. вложение). А затем можно писать программу. Считаем попаданием в область, если точка находится строго ВНУТРИ треугольника. Если надо учитывать и границы, неравенства будут нестрогими.
<u>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var (x,y):=ReadReal2('Введите координаты х и у точки:');
if (y>-3) and (y<5*x/3+2) and (y<-5*x/3+2) then Writeln('попали')
else Writeln('не попали')
end.
//////////////////////////////////////////
4096 бит / 8 = 512 байт
512 байт / 1024 = 0,5 Кбайт