<span>нужно найти в массиве минимальный элемент из тех, которые не меньше 180. Это стандартная задача, она решается примерно так:[pre2] const N = 10; var A: array[1..N] of integer; k: integer; ... min := MaxInt; { записываем в min большое число, здесь - больше 200 } for k:=1 to N do if (A[k] >= 180) and (A[k] < min) then min := A[k]; writeln(min); [/pre2]</span>
Устройство для хранения группы файлов и организации доступа к ним
Комп"ютер-------------------------
<span>1байт = 8бит.</span>
<span>Значит, 1024бит =128байт.</span>
<span> </span>
<span>Если текст начинается с 10 байта, то закончится на 128+10 = 138байт.</span>