Запишите в массив 20 случайных чисел.циклически сдвиньте массив влево. по икт(информатика) ! буду

// pascalabc.net 3.3, сборка 1611 от 06.01.2018 // внимание! если программа не работает, обновите версию! begin   var k: =20;   var a: =arrrandom(k,-50,50); a.println;   var n: =readinteger('введите число циклических сдвигов влево: ') mod k;   if n> 0 then a: =(a[n: ]+a[: n]).toarray;   a.println end. примеры -31 -27 -45 21 -49 14 -40 21 -13 -45 6 -44 -17 -12 9 4 25 -22 -11 35 введите число циклических сдвигов влево: 5 14 -40 21 -13 -45 6 -44 -17 -12 9 4 25 -22 -11 35 -31 -27 -45 21 -49 -22 14 25 3 -12 -46 -12 -32 -12 -23 8 -44 -8 42 16 9 -8 33 -22 43 введите число циклических сдвигов влево: 0 -22 14 25 3 -12 -46 -12 -32 -12 -23 8 -44 -8 42 16 9 -8 33 -22 43 -18 -42 10 48 -41 -32 -29 19 39 49 44 -1 15 -19 -32 -35 36 -6 -38 38 введите число циклических сдвигов влево: 21 -42 10 48 -41 -32 -29 19 39 49 44 -1 15 -19 -32 -35 36 -6 -38 38 -18 -36 42 29 0 -43 -33 -17 46 -34 7 -6 -20 -30 19 -30 36 43 -22 -44 -44 введите число циклических сдвигов влево: -1 -36 42 29 0 -43 -33 -17 46 -34 7 -6 -20 -30 19 -30 36 43 -22 -44 -44

Var a: array[1..20] of integer; tmp, i: integer; begin randomize(); for i: = 1 to 20 do   begin     a[i]: = random(1000);     write(a[i], ' ');   end; tmp: = a[1]; for i: = 1 to 19 do   a[i]: =a[i+1]; a[20]: =tmp; writeln(); for i: = 1 to 20 do   write(a[i], ' '); end.

i = k * i (i - объем информации, k - кол-во пикселей, i - вес одного пикселя / глубина цвета)

i = i / k

k = 64 * 512 = 32768 пикселей

i = 32 kb = 32 * 1024 * 8 бит = 262144 бит

глубина цвета бит (округляем в меньшую сторону так, как тут могут быть только целые числа)

кол-во цветов в палитре цветов

ответ: 256