Zadanie 1: Podaj największą i najmniejszą możliwą liczbę elementów w kopcu o wysokości h.
Odpowiedzi:
największa liczba elementów:
najmniejsza liczba elementów w kopcu o wysokości h:

Представим, что мы сняли всю землю с холмов до нулевого уровня в пределах полосы шириной 1 метр, а потом засыпали её обратно так, чтобы уровень стал горизонтальным на высоте h.

Посчитаем объем земли, который был снят.
Всю землю можно разделить на фигуры толщиной 1 метр, в основании которых трапеции с высотой 1 м и основаниями - двумя соседними измерениями высоты. Тогда объем каждой фигуры V(i) = (h(i) + h(i + 1)) / 2, полный объем V = V(1) + V(2) + ... + V(N - 1) = h(1)/2 + (h(2) + h(3) + ... + h(N - 2)) + h(N - 1)/2

Объем земли, который использовался для засыпания, равен V = h (N - 1).

Эти объемы, конечно, равны, тогда h = (h(1)/2 + h(N - 1)/2 + (h(2) + h(3) + ... + h(N - 2))/(N - 1)

PascalABC.NET 3.2.1518:
begin
  var N := ReadInteger;
  print(ReadSeqInteger(N)
           .Select((x, i) -> (i = 0) or (i = N - 1) ? x/2 : x)
           .Sum / (N - 1))
end.

С вводом-выводом в файл:
begin
  var f := OpenRead('INPUT.TXT');
  var N := f.ReadInteger;
  var S := f.ReadInteger / 2;
  for var i := 2 to N - 1 do
    S += f.ReadInteger;
  S += f.ReadInteger / 2;
  print(S / (N - 1))
end.

Первая программа:

program p;

var
x, y: integer;

begin
  writeln('Введите x >> ');
  read(x);
  writeln('Введите y >> ');
  read(y);
  if (x<0) and (y>0) then
    begin
      writeln('Точка принадлежит второй координатной четверти');
    end
   else
    begin
      writeln('Точка не принадлежит второй координатной четверти');
    end
end.

Вторая:

program p2;

var
n, i, sum, j: integer;
arr: array[1..10] of integer;

begin
  writeln('Введите число n');
  read(n);
  while n>0 do
    begin
      inc(i);
      arr[i]:=n mod 10;
      n:=n div 10;
    end;
  for j:=1 to i do
    begin
      sum+=arr[j];
      //write(arr[j]);
    end;
  if sum>9 then3
    begin
      writeln('Сумма больше 9');
    end
  else
    begin
      writeln('Сумма меньше 9');
    end
end.