Статистика
Всего в нашей базе более 4 327 660 вопросов и 6 445 973 ответов!

Помогите написать задачу на паскале

10-11 класс

================================================================
В одной берляндской школе появился новый ученик Вася, который очень сильно любил химию. К сожалению для учителя химии, Вася принебрегал техникой безопасности и любил смешивать все реагенты подряд. В кабинете химии находится n реагентов. Каждый реагент характеризуется целым числом - своей опасностью. При смешивании реагентов действовали такиме правилами:

смешивать можно только 2 реагента;
при смешивании реагентов, старые реагенты исчезали и появлялся новый реагент, опасность которого равнялась среднему арифметическому старых.

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

Innainna55 05 мая 2015 г., 20:21:20 (8 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
71pavlovaolga71
05 мая 2015 г., 22:27:53 (8 лет назад)

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.


   


+ 0 -
Plz321
06 мая 2015 г., 0:56:08 (8 лет назад)

паскаль глючит...

+ 0 -
Rav4ik007
06 мая 2015 г., 1:55:11 (8 лет назад)

ну попітайся

+ 0 -
Denaka
06 мая 2015 г., 3:32:58 (8 лет назад)

*попытайся

+ 0 -
Hahvgucnd
06 мая 2015 г., 4:12:51 (8 лет назад)

напиши код а я посмотрю чтото исправлю

+ 0 -
Freakwow
06 мая 2015 г., 6:47:31 (8 лет назад)

ok

Ответить

Другие вопросы из категории

1.
Все 5-буквенные слова, составленные из 5 букв А,К,Л,О,Ш, записаны в алфавитном порядке.Вот начало списка:

1)ААААА
2)ААААК
3)ААААО
4)ААААШ
5)АААКА
1) Сколько всего 5-буквенных слов в этом спике?
2) Какое слово следует за словом Шалаш?
3) На каком месте от начала списка стоит слово Школа?
4) Какое слово стоит на 126 месте?

Задание: разработать программу вычисления выходного значения функ-ции y=f(x1,x2,x3,x4). Тип входных и выходных данных, вид функции заданы в табл. 2.

Выходное значение и входные должны отображаться на экране в виде: X1= X2= X3= X4= Y=

Разработать функцию, которая автоматически заполняет массив из 10 наборов входных данных. Массив затем подвергается обработке, т.е. в цикле вычисляются значения функции и выводятся на экран в виде: Y1= Y2= Y3= Y4= , и т.д.

тип входных данных: целое тип выходных данных: целое, функция: x1*sin(x2) + x3*sin(x4)

Переменные x, x1, x2, x3 имеют размер - машинное полуслово, тип- знаковый, шестнадцатеричной системе счисления x1= C7(в основании 16) , x2 = D5(в

основании 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

Привет всем. Помогите написать программы на паскале.

Сами задачи во вложении.



Вы находитесь на странице вопроса "Помогите написать задачу на паскале", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.