WinZip — условно-бесплатный файловый архиватор и компрессор фирмы Corel для операционных систем Microsoft Windows, OS X, iOS и Android. ZIP является основным форматом, хотя поддерживаются и другие архивные форматы.
Возможности
Создание, дополнение, извлечение из архивов ZIP, а также собственного формата .zipx
Поддержка алгоритмов компрессии JPEG, LZMA (12.0), bzip2 (9.0), PPMd (10.0) и специальных алгоритмов для звуковых файлов (на основе WavPack), что позволяет уменьшить архив за счёт потенциального увеличения времени сжатия и извлечения (особенно при использовании PPMd).
Декомпрессия файлов .bz2, .rar, .iso, .img, 7-zip
Встроенная поддержка архивов LHA (.lha и .lzh)
Настраиваемая интеграция в оболочку Microsoft Windows.
Интеграция с облачными хранилищами и социальными сетями
Поддержка 128- и 256-битных ключей шифрования AES. Это позволило заменить менее надёжный метод шифрования PKZIP 2.0 используемый в ранних версиях. Версия 9 также осуществляет поддержку 64-битного шифрования в ZIP.
Дополнительные возможности
Прямая запись архивов на CD / DVD / Blu-ray
Автоматизация резервного копирования
Поддержка протокола FTP
Отправка ZIP архивов по электронной почте
Поддержка Юникода (c версии 11.2)
Program Begenjov1997;
const
n = 30; {Количество элементов массива}
m = 10000; {Максимально возможное значение элемента}
var
a:array[1..n] of integer;
i, min, max: integer;
s:string;
begin
s:=' -=Alphaeus=- ';
for i:=1 to 22 do begin write(s[i]); sleep(60) end;
{заполняем массив случайными числами}
writeln; randomize;
for i:=1 to n do a[i]:=random(m+1);
{Ищем максимальный и минимальный элементы}
min:=a[1]; max:=a[1];
for i:=1 to n do
begin
if (a[i]>max) then max:=a[i];
if (a[i]<min) then min:=a[i];
end;
{Заменяем минимальные элементы на максимальные}
for i:=1 to n do
if (a[i] = min) then a[i]:=max;
{Вывод}
writeln('Массив:');
for i:=1 to n do writeln(a[i]);
end.