ПаскальОткомпилирован в: Pascal ABC program z1; uses crt; const m=50; //Задаем массив заранее большего значения, что массив не переполнилсяvar n: integer; i: integer; mas: array [0… m] of integer; buf: integer; min, imin: integer; begin randomize; //Запускаем функцию случайного значения write (' Введите количество элементов в массиве: '); //Вводим количество показываемых элементов readln (n); writeln (); writeln (' Исходный массив: '); for i: =1 to n do begin mas[i]: =random (100); //Заполняем массив случайными числами в диапозоне от 0 до 100 writeln (',i,'=', mas[i]); //Выводим их на печать end; min: =mas[1]; //Начало минимального элемента. Предпологаем, что 1-ый элемент минимален for i: =2 to n do //Начиная со 2-го сравниваем 1-ый с дургими if min > mas[i] then //Если элемент меньше записываем его в минимальный begin min: =mas[i]; //И так сравниваем все элементы друг с другом imin: =i //Берем индекс минимального для дальнейшего использования end; buf: =mas[n]; //Присваиваем переменной значение последнего элемента mas[n]: =min; //Присваиваем последний элемент значению минималньго mas[imin]: =buf; //Теперь место минимальнго занимает значение последнего writeln (); writeln (' Отсоритрованный по правилу, что минимальный элемент в конце: '); for i: =1 to n do begin writeln (',i,'=', mas[i]); //Выводим весь массив end; end.
