Написать программу, которая использует генератор случайных чисел выводит массив, состоящий из 20 целых элементов из интервала[15;45]

Program p000;

type interval1545 =15..45l

var a: array [1..20] of interval1545;

     i: 1..20;

begin

        randomize; (* запуск генератора случайных чисел *)

        for i:=1 to 20 do

       begin

                a[i]:= 15+random(31); (* случайное число в диапазоне 15..45 *)

               writeln(a[i]);

        end;

end.

Объяснение:

1) а2 = 10111 - это 162 = 23 а8 = 447 - это 168 = 295 а16 = 45а - это 2582 = 1114 2) а10 = 241 - это в двоичной 0000101000010000 = 10100001 -это в восьмеричной 5020 = 241 -это в шестнадцатеричной а10 = a1. 3) 4 кбайт * 1024 раз = 4096 байт. это значит что на 1 букву или символ = 1 байт. в 1 байт влезет 256 разных вариантов букв или символов, т. е. алфавитных букв. итого: 256 сиволов мощность алфавита. 4) одна точка в глубине цвета 24 бит это 24 бит памяти на одну точку/пиксель. 1024 пикселей в ширину * 576 пикселей в высоту = 589824 пикселей. 24 бит / 8 раз = 3 байта. 589824 * 3 байта * 2 страницы = 3538944 байт или 589824 * 24 бита * 2 страницы = 28311552 бит. ответ: 28311552 бит видеопамяти или 3538944 байт видеопамяти. 5. 16 бит * 44.01 кгц* 180 сек = 126748,8 бит. 126748.8 / 1024 раз =~ 123,778125 байт. ответ: ~123 байт или ~126748 бит.