===== PascalABC.NET ====
begin
var a := ArrRandom(25, 20, 100);
a.Println.SortedDescending.Println
end.
===== Free Pascal =====
const
n = 25;
var
a: array[1..n] of integer;
i, j, t: integer;
begin
randomize;
for i := 1 to n do
begin
a[i] := random(81) + 20;
write(a[i], ' ')
end;
writeln;
// пузырьковая сортировка по убыванию
for i := n - 1 downto 1 do
for j := 1 to i do
if a[j] < a[j + 1] then
begin
t := a[j];
a[j] := a[j + 1];
a[j + 1] := t
end;
// вывод результатов
for i := 1 to n do
write(a[i], ' ');
end.
а)
монитор, клавиатура, мышка. Хотя можно изворотится и без мышки сделать, но это сложно.
Adobe photoshop, UltraISO
б)
подключить оборудование, открыть photoshop, смотри изображение, открываем сайт (https://online-audio-converter.com/ru/) и конвертируем видео в mp3, запускаем программу UltraISO
, В окно программы перетягиваем файлы которые нужно записать, Нажимаем на кнопку записи (иконка горящего диска), откроется еще одно окно, в котором нажимаем на «Записать» и ждем окончания процесса записи.
в) https://primtrud.ru/content/tehnika-bezopasnosti-pri-rabote-s-kompyuterom.html - правила работы за компьютером
