Помогите написать задачу на паскале
10-11 класс
|
================================================================
В одной берляндской школе появился новый ученик Вася, который очень сильно любил химию. К сожалению для учителя химии, Вася принебрегал техникой безопасности и любил смешивать все реагенты подряд. В кабинете химии находится n реагентов. Каждый реагент характеризуется целым числом - своей опасностью. При смешивании реагентов действовали такиме правилами:
смешивать можно только 2 реагента;
при смешивании реагентов, старые реагенты исчезали и появлялся новый реагент, опасность которого равнялась среднему арифметическому старых.
Известно, что Вася собирается смешивать реагенты до тех пор, пока не останется 1 реагент. Помогите учителю химии определить максимально возможную опасность окончательного реагента.
var
i, j, k, n : integer;
arr : array [1..200000] of integer;
ans : double;
begin
read (n);
for i := 1 to n do read (arr[i]);
for i := 1 to n - 1 do
for j := 1 to n - i do
if arr[j] > arr[j + 1] then
begin
k := arr[j];
arr[j] := arr[j+1];
arr[j+1] := k
end;
ans := (arr[1] + arr[2]) / 2;
for i := 3 to n do
ans := (ans + arr[i]) / 2;
write (ans:0:3);
end.
напиши код а я посмотрю чтото исправлю
Другие вопросы из категории
1)ААААА
2)ААААК
3)ААААО
4)ААААШ
5)АААКА
1) Сколько всего 5-буквенных слов в этом спике?
2) Какое слово следует за словом Шалаш?
3) На каком месте от начала списка стоит слово Школа?
4) Какое слово стоит на 126 месте?
Выходное значение и входные должны отображаться на экране в виде: X1= X2= X3= X4= Y=
Разработать функцию, которая автоматически заполняет массив из 10 наборов входных данных. Массив затем подвергается обработке, т.е. в цикле вычисляются значения функции и выводятся на экран в виде: Y1= Y2= Y3= Y4= , и т.д.
тип входных данных: целое тип выходных данных: целое, функция: x1*sin(x2) + x3*sin(x4)
основании 16) , x3= AB (в основании 16). Вычислитьзначение выражения по правилам машинной арифметики x=(x1-x2)-x3, Вернуть его десятичной значение.
Помогите пожалуйста, задачка вузовская, 1 курс информационные технологии!
Читайте также
Задача на одномерный массив.
Задание 2.
Задан одномерный массив MAS2 [1..10].
Массив объявите как константу типа Integer размером [1..10] со следующими значениями: (-7, 89, 64, -43, 4, 6, 8, -12, 55, 99)
Замените все положительные элементы одномерного массива на их квадраты, а отрицательные удвойте.
Результат вывести на экран.
Вычислить сумму всех элементов нового массива и вывести на экран.
Исходный массив Новый массив
-7 -14
89 7921
64 4096
-43 -86
4 16
6 36
8 64
-12 -24
55 3025
99 9801
Сумма элементов нового массива 24835
Сами задачи во вложении.