Программа и пример её работы - в прилагаемом файле.
//1
for i := -3 to 3 do
Read(a[i]);
//2
Randomize;
for i := -3 to 3 do
a[i] := Random(101) - 50;
//3
for i := -3 to 3 do
a[i] := 5 * i;
//4
Randomize;
for i := -3 to 3 do
a[i] := Random(41) + 150
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var x:=ReadlnInteger('Введите x');
var y:=ReadlnInteger('Введите y');
writeln(max((x+y),(x*y))-2);
end.
Максимум 12 с шагом 0,1, значит всего возможных значений 12 / 0,1 = 120
120 < 128 = 2^7 - ближайшая степень двойки
значит 7 бит на каждое значение