<em>// PascalABC.NET 3.3, сборка 1542 от 05.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (n,m):=ReadInteger2('Введите через пробел n и m:');
var a:=ArrRandom(10,n,m);
a.Println
end.
<u>Пример</u>
Введите через пробел n и m: -6 20
15 10 16 17 1 14 -4 19 1 18
1. Объем файла = 16*2048 бит = 16*2048/8 байт = 2*2048 байт = 2*2048/1024 Кбайт = 4 Кбайта.
2. 60 Кбайт = 60*1024 байт = 60*1024*8 бит
Время = 60*1024*8/3072 = 160 сек
3. S1 = t*v1, S2 = t*v2
S1/S2 = v1/v2, S2 = S1/(v1/v2)
v1/v2 = 1536/768 = 2
S2 = 80/2 = 40 Кбайт
4. S1 = t1*v, S2 = t2*v
S1/S2 = t1/t2, S2 = S1/(t1/t2)
t1/t2 = 60/75 = 4/5 = 0,8
S2 = 2000/0,8 = 2500 Кбайт
5. S1 = t1*v, S2 = t2*v
S1/S2 = t1/t2, t2 = t1/(S1/S2)
S1/S2 = 3/4 = 0,75
t2 = 2*60/0,75 = 160 сек
I = K * i (I - объем информации, K - кол-во пикселей, i - вес одного пикселя / глубина цвета)
i = I / K
K = 128 * 128 = 16384 пикселей
I = 2 Kb = 2 * 1024 * 8 бит = 16384 бит
Глубина цвета бит (округляем в меньшую сторону так, как тут могут быть только целые числа)
Кол-во цветов в палитре цветов
Ответ: 2
Линия, прямоугольник, эллипс, многоугольник.