1. Создайте в своей личной папке папки Исходные и папку Архив. 2. В папке Исходные создайте папки Документы, Рисунки, Презентации.

3. Откройте папку Мой компьютер и с кнопки Поиск осуществите поиск:

– двух файлов с расширением .doc (размер должен быть более 50Кбайт), которые затем скопируйте в папку Документы;

– двух файлов с расширением .jpg (размер должен быть более 60Кбайт), которые затем скопируйте в папку Рисунки;

– двух файлов с расширением .ppt, которые затем скопируйте в папку Презентации.

4. Откройте папку Документы, выделите все файлы, находящиеся в ней, вызовите для них контекстное меню.

5. В контекстном меню выберите команду Добавить в архив… Появится окно архиватора.

6. Выберите формат архива 7Z, метод сжатия Максимальный.

7. Имя архива задайте Архивные документы.

8. Нажмите кнопку Обзор и выберите папку Архив для размещения в ней архива.

9. Проверьте правильность настроек и нажмите кнопку OK.

10. Посмотрите, появился ли архивный файл Архивные документы в папке Архив.

11. Откройте папку Рисунки, поместите каждый файл в свой архивный файл (Выберите формат архива ZIP, метод сжатия Нормальный), архивные файлы должны быть размещены в папке Архив.

12. Посмотрите, появился ли архивные файлы в папке Архив.

13. Откройте папку Презентации, выделите оба файла и через контекстное меню выберите команду Добавить в архив…

14. Создайте самораспаковывающийся архив в папке Архив под именем Архив-Презент.exe

15. Проверьте правильность настроек и нажмите кнопку OK.

16. Посмотрите, появился ли архивный файл в папке Архив, чем он отличается от предыдущих архивных файлов.

17. Файл с текстом практической работы заархивируйте с паролем и поместите в папку Архив.

👇

Открыть все ответы

Ответ:

tayatoadvel

07.05.2020

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(ReadInteger('n='),-20,20); a.Println;
var imin:=a.IndexMin;
Writeln('Номер минимального элемента- ',imin+1);
Writeln('Элементов, равных минимальному- ',
a.Where(x->x=a[imin]).Count-1)
end.

Пример
n= 50
-13 17 18 10 -6 13 16 -12 -15 10 18 -7 -20 18 14 14 11 20 4 4 -10 6 -20 11 -2 4 7 -3 -20 -18 -6 11 -15 -8 16 11 -13 3 -5 2 6 7 -10 11 8 19 1 -11 16 -10
Номер минимального элемента- 13
Элементов, равных минимальному- 2

4,8(57 оценок)

Ответ:

ПУТИН222

07.05.2020

Первое задание, программа задает массив, сортирует его, затем сравнивает элемент с последующем

uses crt;
var
a:array[1..100] of integer;
i,j:integer;
procedure swap(var x,y: integer);
var t: integer;
begin
t := x;
x := y;
y := t
end;
begin
for i:=1 to 100 do a[i]:=random(100);
for j:=1 to 99 do
for i:=1 to 100-j do if a[i] > a[i+1] then swap(a[i],a[i+1]);
for i:=1 to 99 do if a[i]=a[i+1] then
begin
writeln(a[i]);
writeln(a[i+1]);
end;
end.

Второе задание. Программа также сортирует и сравнивает элементы

uses crt;
var
a:array[1..100] of integer;
i,j:integer;
procedure swap(var x,y: integer);
var t: integer;
begin
t := x;
x := y;
y := t
end;
begin
for i:=1 to 100 do a[i]:=random(100);
for j:=1 to 99 do
for i:=1 to 100-j do if a[i] > a[i+1] then swap(a[i],a[i+1]);
for i:=1 to 99 do if a[i]<>a[i+1] then
begin
writeln(a[i]);
end;
end.

4,5(75 оценок)

Это интересно:

Питомцы-и-животные

02.01.2021

Как приучить щенка к его имени: основные правила и эффективные методы...

Компьютеры-и-электроника

29.03.2023

Как восстановить документ Word: готовые решения для всех случаев...

Дом-и-сад

27.10.2020

Как побелить мебель: простые способы обновления старых вещей...

Компьютеры-и-электроника