Var
a: array[1..10] of integer;
i, max: integer;
begin
for i := 1 to 10 do
begin
read(a[i]);
if (i = 1) or (a[i] > max) then
max := a[i];
end;
writeln('Max value = ', max)
end.
Это конечно же ноль (если не брать отрицательные числа)
Пусть x - количество двухкомнатных квартир, тогда вероятность того, что кто-то живет в двухкомнатной квартире = x/32.
По формуле Шеннона I = log(2)1/p = log(2)[1/x/32] = log(2)[32/x] = 2
32/x = 2^2; x = 32/4 = 8
Ответ: в доме 8 двухкомнатных квартир.