РЕШИТЬ ЭТУ ЗАДАЧУ НА ПАСКАЛЬ Имеется N гор Каждая гора это треугольник, основание которого лежит на оси х. Обе стороны горы наклонены под углом 45 градусов, поэтому пик горы - угол в 90 градусов. Гора i поэтому задаётся координатами (xi yi) ее газ
пика. Никакие две горы не имеют одно и то же расположение пика
Требуется посчитать все видимые горы Но, поскольку все они примерно одного цвета невозможно увидеть гору, если ее пик лежит на границе или внутри другой горы.
Определите количество различных пиков (и следовательно гор), которые можно увидеть.
Формат ввода (файл mountains.im):
Первая строка ввода содержит N. Каждая из оставшихся N строк содержит хi (0<xis1019) и уi (1syjs109) описывающих пики гор.
Формат вывода (файл mountains.out):
Выведите минимальное количество гор, которые можно различить.
Пример ввода
3
46
72
25
Пример вывода
2​​

Круги́ э́йлера — схема, с которой можно изобразить отношения между подмножествами, для наглядного представления. изобретены эйлером. используется в , логике, менеджменте и других прикладных направлениях. важный частный случай кругов эйлера — диаграммы эйлера — венна, изображающие все 2n комбинаций n свойств, то есть конечную булеву . при n=3 диаграмма эйлера — венна обычно изображается в виде трёх кругов с центрами в вершинах равностороннего треугольника и одинаковым радиусом, приблизительно равным длине стороны треугольника. при решении целого ряда леонард эйлер использовал идею изображения множеств с кругов. однако, этим методом еще до эйлера пользовался филосов и готфрид вильгельм лейбниц (1646—1716). но достаточно основательно развил этот метод сам л. эйлер. методом кругов эйлера пользовался и эрнст шрёдер (1841—1902) в книге « логики» . особенного расцвета графические методы достигли в сочинениях логика джонa венна (1843—1923), подробно изложившего их в книге «символическая логика» , изданной в лондоне в 1881 году. поэтому такие схемы иногда называют диаграммы эйлера — венна.

Const
  MAX_SIZE = 10;
 
var
  a: array[1..MAX_SIZE] of integer;
  i, size: integer;
 
procedure delete_odd_elements();
var i, j: integer;
begin
  i := 1;
  repeat
    if odd(a[i]) then
    begin
      dec(size);
      for j := i to size do
        a[j] := a[j + 1]
    end
    else inc(i);
  until i > size;
end;
 
begin
  writeln('Исходный массив: ');
  size := MAX_SIZE;
  for i := 1 to size do
  begin
    a[i] := random(100);
    write(a[i] : 3);
  end;
  delete_odd_elements;
  writeln;
  writeln('Полученный массив: ');
  for i := 1 to size do
    write(a[i] : 3);
end.