Представим, что мы сняли всю землю с холмов до нулевого уровня в пределах полосы шириной 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.
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.
