Решить в Паскаль: Найти максимальную полуразность двух соседних чисел(массивы)

196

377

Посмотреть ответы 2

Ответы на вопрос:

kriskamai2002

Информатика

4,8(62 оценок)

// PascalABC.NET

begin

var n := ReadInteger('Длина массива (не менее 2):');

var a := ArrRandom(n, -99, 99);

a.Println;

var r := Abs(a[1] - a[0]);

for var i := 2 to n - 1 do

if Abs(a[i] - a[i - 1]) > r then

r := Abs(a[i] - a[i - 1]);

Print(r / 2)

end.

Rom4ik1105

Информатика

4,8(95 оценок)

Одна цифра восьмеричного числа = три числа в двоичной системе. т.к 8 = 2^3. число должно быть четырехзначным, следовательно в двоичной системе это число должно содержать 12 цифр (или 4 триады, т.е 4 группы цифр по три знака в каждой) максимальное четырехзначное число в восьмеричной системе, это - 7777, в двоичной записи оно будет выглядеть вот так : 111 111 111 111. наибольшее четырехзначное восьмеричное число, двоичная запись которого содержит 4 нуля, в двоичной системе будет выглядеть так - 111 111 110 000, т.е мы заменили единицы 4 нулями и при этом, поставили их в младшие разряды, т.к по условию нам нужно наибольшее число. если перевести это число в восьмеричную систему, получим 7760 ответ : 7760.