Фамилия, имя __________________________ Класс_________
Практическое занятие.
Тема: Сортировка массива. Решение задач
Задание 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.