1. заполнить массив из 15 элементов случайными целыми числами в интервале от 0 до 150. 2. вывести массив на экран в строчку, через пробел. 3. вывести на экран максимальный элемент массива. 4. вывести на экран количество нечетных элементов в массиве. 5. вывести на экран сумму элементов, не превышающих 100. 6. определить, встречается ли в массиве число "20". 7. выполнить сортировку массива по возрастанию. вывести результат на экран.

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(15, 0, 150);

 a.Println;

 Println('max =', a.Max);

 Println('Нечетных:', a.Where(t -> t.IsOdd).Count);

 Println('Сумма элементов, не превышающих 100:',

     a.Where(t -> t <= 100).Sum);

 Writeln('Число 20 в массиве',a.Contains(20)?'':' не',' встречается');

 a.Sort;

 a.Println

end.

66 101 58 108 113 143 23 57 36 0 20 27 35 6 138max = 143 Нечетных: 7 Сумма элементов, не превышающих 100: 328 Число 20 в массиве встречается0 6 20 23 27 35 36 57 58 66 101 108 113 138 143

Информация, которую мы получаем из окружающего мира, поступает к нам в виде условных знаков или сигналов самой разной физической природы.

Это свет, звук, запах, касания; это слова, значки, символы, жесты и движения.

Для того чтобы произошла передача информации, мы должны не только принять сигнал от кого-то, но и расшифровать его.

Так, услышав звонок будильника, человек понимает, что пришло время телефонный звонок — кому-то нужно с нами поговорить;

школьный звонок сообщает учащимся о долгожданной перемене.

Для правильного восприятия разных сигналов требуется разработка кода, или кодирование.

Код — это система условных знаков для представления информации.

Кодирование — это перевод информации в удобную для передачи, обработки или хранения форму с некоторого кода.

Каждая из компонент связности должна быть кликой (иначе говоря, каждые две вершины в одной компоненте связности должны быть связаны ребром). Если в i-ой компоненте связности вершин, то общее число рёбер будет суммой по всем компонентам связности:



Требуется найти максимум этого выражения (т.е. на самом деле - максимум суммы квадратов) при условии, что сумма всех ni равна N и ni - натуральные числа.

Если K = 1, то всё очевидно - ответ N(N - 1)/2. Пусть K > 1.

Предположим, n1 <= n2 <= ... <= nK - набор чисел, для которых достигается максимум, и n1 > 1. Уменьшим число вершин в первой компоненте связности до 1, а оставшиеся вершины "перекинем" в K-ую компоненту связности. Вычислим, как изменится сумма квадратов:

Поскольку по предположению n1 > 1 (тогда и nK > 1), то сумма квадратов увеличится, что противоречит предположению о том, что на выбранном изначально наборе достигается максимум. Значит, максимум достигается, если наименьшая по размеру компонента связности - изолированная вершина. Выкинем эту компоненту связности, останутся K - 1 компонента связности и N - 1 вершина. Будем продолжать так делать, пока не останется одна вершина, тогда получится, что во всех компонентах связности кроме последней должно быть по одной вершине.

Итак, должно выполняться


Подставив в исходную формулу, получаем


Это и есть ответ.