Найти сумму и произведение 10 случайных чисел. делать через массив буду примного .

{заполняем, например, массив в диапазоне [-50.99]} const n=10; var a: array[1..n]of integer; i: integer; s,p: real;     begin randomize; p: =1;           for i: =1 to n do               begin                     a[i]: =random(100)-50;                     write(a[i]: 4);                     p: =p*a[i]   ;                     s: =s+a[i];               end; writeln; writeln('p =  ',p, '   s=  ',s); end.

// pascalabc.net 3.2, сборка 1447 от 22.05.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк в массиве: ');   var m: =readinteger('количество колонок в массиве: ');   writeln('*** исходный массив [',n,',',m,'] ***');   var a: =matrrandom(n,m,-99,99);   a.println(5); writeln(5*a.colcount*'-');   a.cols.select(x-> format('{0,5}',x.where(y-> y< 0).('');   println(' - суммы отрицательных'); end. пример количество строк в массиве: 5 количество колонок в массиве: 9 *** исходный массив [5,9] ***   -43  -96    34    82      3    92  -59    31    35     65    94    76    66    90  -39    26  -24    83     73  -92    94  -94    44  -35  -66    87  -46     90    56  -37  -60    -9    94      9  -76  -58   -16    97    65  -21  -86    64  -20    46  -26   -59 -188  -37 -175  -95  -74 -145 -100 -130 - суммы отрицательных

1) 64000 бит/с*16 c=1024000 бита/8=128000 байт=125 килобайт 2) n  =  2i    =  256      i  =   8 бит количество точек изображения равно: 1024   х 1024 = 1048576

8 бит  х  1048576  = 8388608 бита   =  1048.576  кбайт3) всего объем сообщения 3кб = 3072 байт = 24576 бит

на кодирования одного символа ушло 24576 : 6144 = 4 бит/символ

с 4 бит можно закодировать < 2^4 символов

ответ: символов меньше 16.