Определи тип исполнителя.

Аудитор пишет отчёт.

Объяснение:

При работе на персональном компьютере довольно часто возникает необходимость уменьшить размер файла с целью экономии места на диске. Например, требуется перенести файлы с одного компьютера на другой на дискетах. Или нужно переслать большой файл по электронной почте - уменьшив его размер, можно сэкономить и время и деньги. Лучшее решение в таких случаях - создать так называемый архивный файл, или, проще говоря, архив. Это единый файл, в который для компактного хранения информации помещены в сжатом виде один или несколько исходных файлов.

Для работы с архивами предназначены специальные программы, которые называются архиваторами. С архиваторов можно упаковывать файлы в архивы и распаковывать их, а также просматривать содержимое архивов. Упаковка файлов в архив называется архивированием или архивацией, а их извлечение - разархивированием.

Существуют разные форматы архивов: ZIP, ARJ, RAR, CAB, TAR, LZH и др. Когда создается архивный файл, ему присваивается расширение, совпадающее с форматом архива. Например, файл с именем MyDoc.zip - это архив формата ZIP. Формат влияет на эффективность сжатия файлов; к примеру, архив формата RAR занимает на диске меньше места, чем архив формата ZIP, содержащий те же самые исходные файлы. Кроме того, эффективность зависит от типа файлов, упаковываемых в архив. Файлы картинок, имеющие расширение BMP, документы Microsoft Word удается сжать в два-четыре раза, текстовые файлы - приблизительно в два раза. Несколько хуже подвержены сжатию исполняемые файлы (с расширением EXE), а графические файлы, имеющие расширение TIF, практически не сжимаются.

Вот держи
program n_3;var n, i,s, imax: integer;a:array[1..10] of integer;begin//третья прогаwriteln('3 прога');
for i:=1 to 10 do a[i]:=random(50);for i:=1 to 10 do write (a[i],' ');n:=0;for i:=1 to 10 doif a[i]=50 then n:=i;if n=0 then write ('нет') else write (i);writeln();writeln('2 прога');s:=0;//вторая прогаfor i:=1 to 10 do a[i]:=random(50);for i:=1 to 10 do write (a[i],' ');imax:=1;for i:=2 to 10 doif a[i]>imax then imax:=1;writeln();write ('наибольший элемент a[', imax, ']=' ,a[imax]);writeln();writeln('1 прога');begin//1 прогаfor i:=1 to 10 do a[i]:=random(50);for i:=1 to 10 do n:=n+a[i];writeln('Сумма елементов =',n);end;end.