Найти произведение положительных элементов массива и количество ненулевых элементов массива. .

Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! begin   var (m,n): =readinteger2('количество строк и столбцов в массиве: ');   writeln('*** исходный массив ***');   var a: =matrrandom(m,n,-99,99);   a.println(4); writeln(4*n*'-');   for var i: =0 to m-1 do       a.setrow(i,a.row(i).orderby(t-> abs(t mod );   writeln('*** полученный массив ***'); a.println(4) end. пример количество строк и столбцов в массиве: 5 8 *** исходный массив ***   -53 -41 -74  23  90  -4  48 -78   -68  82  45  82 -54 -53 -63  80   66  40 -72 -15  79 -95  16  98   -52 -76  37  10  -9 -87 -12  30   -82 -58  43 -17  58  27 -85  96 *** полученный массив ***   90 -41 -53  23 -74  -4  48 -78   80  82  82 -53 -63 -54  45 -68   40 -72 -15 -95  66  16  98  79   10  30 -52 -12 -76  37 -87  -9   -82  43 -85  96 -17  27 -58  58 замечание. в связи с некорректно поставленным вопросом принято решение сортировать каждую строку массива независимо от прочих по возрастанию последней цифры.

1) всего точек а=512*512= 262144 количество цветов n= 256, отсюда вычислим глубину цвета n=2^i   256=2^i i=8 объем изображения= n*a= 262144*8= 2097152 бит= 256 кбайт 2)аналогично предыдущей : n=2^i   16177216=2^i   i =24 n*a= (1024*768)*24= 18874328 бит= 2,25 мбайт 3)n=2^i   65536=2^i i=16 n*a=(1280*1024)*16= 20971520 бит= 2,5 мбайт 4)количество информации(бит) получим разделив объем файла(бит) на количество пикселей. i=(1,5*1024*1024*8)/(1024*512)= 24 бит 5)определим глубину цвета i=v/n, где v-объем изображения (бит), n - количество пикселей i=(16*1024*8)/(256*128)= 4 бит найдем количество цветов n=2^i n=2^4= 16 цветов 6)количество памяти на 1 страницу: 640*480*24= 7372800 бит= 900 кбайт количество страниц= (2*1024)/900= 2,28 ответ: 2 страницы