Question

Написать программу, на любом языке программирования, которая делит на 4 все элементы одномерного байтового массива.
Массив генерируется случайным образом.

Answer 1

// PascalABC.NET

begin

 var n := ReadInteger;

 var a := new byte[n]; // создание массива

 // инициализируем массив

 for var i := 0 to n - 1 do

   a[i] := Random(0, 255);

 a.Println; // вывод исходного массива

 // делим каждый элемент на 4

 for var i := 0 to n - 1 do

   a[i] := a[i] shr 2; // сдвиг вправо на 2 бита

 a.Print; // выводим результат

end.