Отвечу на первый вопрос (всё-таки по правилам сайта вы должны задавать одно задание, иначе просто и вряд ли кто возьмётся, и решать будут долго, и ответ займёт кучу места).
Расставим в порядке убывания количества информации: 1) терабайт -это 1024 гигабайта (2^40 байт) 2) гигабайт -это 1024 мегабайта (2^30 байт) 3) мегабайт -это 1024 килобайта (2^20 байт) 4) килобайт -это 1024 байта (2^10 байт) 5) байт -состоит из 8 бит (8 двоичных разрядов) 6) бит и двоичный разряд -в них равное количество информации (это минимальное количество информации; бит может находится в двух различных состояниях, обозначаемых как ноль и единица)
Const n=10; var a: array[1..n] of integer; p,k: integer; i: byte; begin randomize; p:=1; k:=0; for i:=1 to n do begin a[i]:=random(21); if (a[i]>0) and (a[i] mod 6 =0) then begin p:=p*a[i]; k:=k+1; end; end; println (a); if k>1 then writeln ('Произведение элементов, кратных 6, = ',p) else if k=1 then writeln ('Найден всего 1 элемент, кратный 6, - ',p) else writeln ('Нет элементов, кратных 6') end.
ПО общего назначения
Развлекательное ПО
ПО специального назначения
Профессиональное ПО