Фамилия, имя __________________________                               Класс_________

Практическое занятие.

Тема: Сортировка массива. Решение задач

Задание 1.

В программу поиска минимального элемента и его обмена с последним элементом внесите изменения. Найдите максимальный элемент массива и переместите его на первый порядковый номер.

Program ММ;

Const

     n = 20;

Var

     Mas : array[1..n] of integer;

     k,m,min,i : integer;

Begin

     for i:=1 to n do                 {Ввод исходного массива}

        readln(Mas[i]);

     m:=n; {значение константы n изменять нельзя, поэтому вводим рабочую переменную m}

     while m>1 do begin        {Пока есть неотсортированные элементы}

       min:=Mas[1];    k:=1;

       for i:=1 to m do                {Поиск минимального элемента из m}

         if min > Mas[i] then begin

                              min := Mas[i];

                              k:=i

                            end;

         Mas[k]:=Mas[m];        {Обмен минимального и последнего элементов}

         Mas[m]:=min;

         m:=m-1    end;

      for i:=1 to n do

         write (Mas[i]:3);

      writeln

End.

МЕСТО ДЛЯ ОТВЕТА

Задание 2.

Составить и реализовать программу в среде Pascal. Заполнить одномерный массив из 14 элементов целыми случайными числами в пределах от -7 до 7. Выполнить сортировку первых 7-ти элементов массива по убыванию, а вторых 7-ти по возрастанию.

МЕСТО ДЛЯ ОТВЕТА

Выполненное практическое задание в ТР и в среде  Pascal отправить до 18.00 22.12.2022 г. на электронную почту Zotikova777@yandex.ru.