Вводится число н. а за ним н целых чисел-элементов массива. обнулите все отрицательные элементы массива и посчитайте количество остальных. через паскаль абс

program dds;

const n =10; var a: array[1..n]of integer; i,o,z,x,h: integer; begin z: =0; for i: =1 to n do begin a[i]: =random(10)-5; write(a[i]: 4); end; writeln; write('vvedite h'); readln(h); for i: =h+1 to n do begin if a[i]< 0 then a[i]: =0; if a[i]> 0 then z: =z+1; end; for i: =1 to n do write(a[i]: 4); writeln; write('chishel=',z); readln; end.

Для решения определим  1. время передачи по высокоскоростному каналу 2. время передачи по низкоскоростному каналу 3. время для получения первых 1024 кб 4. всё сложим. 2^20 бит/с = 2^20 / 8 / 1024 кбайт/с = 2^20 / 2^3 / 2^10 = 2^7 кбайт/с 2^13 бит/с =  2^13 / 8 / 1024 кбайт/с = 2^13 / 2^3 / 2^10 = 2^0 = 1 кбайт/с 10 мб равно 10*1024 кбайт = 10*2^10 кбайт. по высокоскоростному каналу файл будет передаваться (10*2^10) / 2^7 = 10*2^3 = 80 секунд по низкоскоростному каналу файл будет передаваться (10*2^10) / 1 = 10*2^10 = 10240 секунд. первые 1024 кбайт будут передаваться 2^10 / 2^7 = 8 секунд общее время 80+10240+8 =  10328 секунд.

1. 128, так как 2^7 = 128, то есть семью битами можно закодировать 128 разных вариантов. 2. черно-белое изображение без градаций - это два цвета (черный и белый). глубина цвета - 1 бит, так как одним битом можно закодировать два варианта. 50*50 = 2500 бит, 2500/8 = 312,5 = 313 байт. 3. определим глубину цвета, для этого разделим объем на количество пикселей. (3*1024*8 бит) / (128*64) = (3*2^10*2^3) / (2^7*2^6) = 3 бита. тремя битами можно закодировать 8 цветов, т.к. 2^3=8 4. палитра состоит из 64 цветов, значит глубина цвета равна 6 битам, т.к. 2^6 = 64. объем в килобайтах будет равен (32*128*6) / (8*1024) = (2^12 * 6) / 2^13 = 6 * 2^(-1) = 3 кбайт