Железная дорога при строительстве новой железной дороги возникли проблемы. дорога пролегает по холмистой местности, однако сами пути должны идти строго горизонтально. поэтому руководство строительной компании приняло решение выровнять поверхность земли на этом участке. главная проблема состоит в том, что привозить или вывозить землю на стройку стоит 10000$ за кубический метр. поскольку бюджет железной дороги невелик, этого нельзя себе позволить. поэтому главный инженер принял решение выровнять поверхность, используя только землю, из которой состоят холмы. теперь самая сложная состоит в том, чтобы выяснить высоту над уровнем моря, на которой будет пролегать дорога. это ответственное было поручено вам. через каждый метр от начала участка была измерена высота над уровнем моря. напишите программу, которая по данным измерений рассчитывает искомую высоту. входные данные первая строка входного файла input.txt содержит количество n (1 < n < = 30000) точек, в которых была замерена высота. вторая строка содержит результаты замеров – i-ое число строки содержит высоту над уровнем моря точки, находящейся на расстоянии (i-1) метр от начала участка. все высоты – целые неотрицательные числа, не превосходящие 10000. считайте, что между соседними точками измерений земная поверхность строго прямолинейна. выходные данные в выходной файл output.txt выведите ответ на с точностью, не меньшей 10-5. примеры примеры № input.txt output.txt 1 4 0 1 1 0 0.6666666667 2 5 2 2 2 2 2 2.0000000000 с
Ответы
Пусть а - число правильных ответов, с - число неправильных ответов. тогда число вопросов, на которые ответы даны не были - 25-а-с 5*а-9*с=40 с у нас больше либо равно 1, тогда делаем методом подстановки, не забывая, что а - обязательно целое число. с=1 5а-9=40, 5а=49, а - число не целое, значит, не подходит. с=2 5а-18=40, 5а=58, а - число не целое, значит, не подходит. с=3 5а-27=40, 5а=67, а - число не целое, значит, не подходит. с=4 5а-36=40, 5а=76, а - число не целое, значит, не подходит. с=5 5а-45=40, 5а=85, откуда а =17. ответ: 17.
Const n = 5; var i: integer; a: array[1..n * 2 + 1] of integer; begin writeln('исходный массив: '); for i : = 1 to 2 * n do begin a[i] : = random(99) + 1; write(a[i] : 5); end; for i : = 2 * n + 1 downto n + 1 do a[i] : = a[i - 1]; a[n + 1] : = 0; writeln(); writeln('полученный массив: '); for i : = 1 to 2 * n + 1 do write(a[i] : 5); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Побудувати в середовищі MS Excel графік функції У= 2х2-2х-3 , х є [-10;10]
Автор: Gennadievna bessonov
Запиши развёрнутую запись числа 0, 256 Для дробной части числа.
Автор: Nikita_Lina1305
Найти значение функции: y=x+x*2+x/3
Автор: RozaAsadullina
Информатика надеюсь видно
Автор: det-skazka55
Посчитаем объем земли, который был снят.
Всю землю можно разделить на фигуры толщиной 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.