Составить программу,которая формирует одномерный массив,заполненный с клавивиатуры,выполняет поиск max и min элемента массива, а затем вычисляет их сумму по модулю
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016 begin var a:=ReadArrInteger('Вводите массив:',ReadInteger('n=')); Writeln('Искомая сумма: ',abs(a.Min+a.Max)) end.
Каждый из возможных символов должен использовать минимально возможное количество БИТ, следовательно : 25 букв + 10 цифр = 35 символов. Для их хранения требуется узнать минимальное количество бит, (Степень цифры 2), поэтому: ( так как 2^5 < 35 < 2^6) получается, что использовать менее 6 бит нельзя. Таким образом, при 6 битах на символ, номер, содержащий 7 символов определяется: 7 * 6 = 42 бита. Так как номер записывается минимально возможным количеством БАЙТ, то объём его в БИТАХ должен быть кратен 8 и в случае необходимости округляться в большую сторону. Ближайшее число кратное 8 - это 48. 48 / 8 = 6 байт. 6 БАЙТ занимает 1 номер. Таким образом, 6 * 80 = 480 байт.
Каждый из возможных символов должен использовать минимально возможное количество БИТ, следовательно : 25 букв + 10 цифр = 35 символов. Для их хранения требуется узнать минимальное количество бит, (Степень цифры 2), поэтому: ( так как 2^5 < 35 < 2^6) получается, что использовать менее 6 бит нельзя. Таким образом, при 6 битах на символ, номер, содержащий 7 символов определяется: 7 * 6 = 42 бита. Так как номер записывается минимально возможным количеством БАЙТ, то объём его в БИТАХ должен быть кратен 8 и в случае необходимости округляться в большую сторону. Ближайшее число кратное 8 - это 48. 48 / 8 = 6 байт. 6 БАЙТ занимает 1 номер. Таким образом, 6 * 80 = 480 байт.
begin
var a:=ReadArrInteger('Вводите массив:',ReadInteger('n='));
Writeln('Искомая сумма: ',abs(a.Min+a.Max))
end.
Тестовое решение:
n= 7
Вводите массив: -5 4 8 -9 6 3 0
Искомая сумма: 1