Архивация Программы архиваци: предназначены для упаковки файлов путем сжатия хранимой в них информации. Сжатие информации - это процесс преобразования информации, хранящейся в файле, к виду, при котором уменьшается избыточность в ее представлении и, и, соответственно, требуется меньший объем памяти для ее хранения. Сжатие информации в файлах производится за счет устранения избыточности различными , например, за счет упрощения кодов. Степень сжатия зависит от используемой программы, метода сжатия и типа исходных данных. Наиболее хорошо сжимаются файлы графических образов, текстовые файлы и файлы данных. Архиваторы - программы, осуществляющие упаковку и распаковку файлов. Архиватор WINRAR служит мощным средством для создания и ведения архива. Его отличительными особенностями являются возможность работы в полноэкранном интерфейсе и использование высокоэффективного метода сжатия. Широкое использование получил архиватор WINZIP, преимуществом которого является его простой графический интерфейс а также возможность поддержки других типов архивов. Найти Перевести
n = 10;
var
a: array[0..10] of integer;
i, s: integer;
begin
//Заполнение массива сл. числами
for i := 1 to n do
begin
a[i] := random(201) - 100;
write(a[i]:4);
end;
writeln;
//1) Все элементы не превышающие число 100
writeln('Не больше 100 ');
for i := 1 to n do
if a[i] <= 100 then
write( a[i]:4);
writeln;
// 2) Все четные элементы
writeln('Кратные двум ');
for i := 1 to n do
if a[i] mod 2 = 0 then
write( a[i]:4);
writeln;
// 3) Все элементы, являющиеся трехзначными числами
writeln('Трехзначные ');
for i := 1 to n do
if (a[i] < -99) or (a[i] > 99) then
write(a[i]:4);
writeln;
// 4) Третий, шестой и т.д элементы.
i := 3;
writeln(' номера 3, 6, 9 и т.д.');
while i < n do
begin
write(a[i]:4);
i := i + 3;
end;
end.