Поиск номера максимума и номера минимума, перестановка элементов массива с заданными номерами - Turbo Pascal

Формулировка задачи:

Разработать модуль программиста,содержащий следующие процедуры и функции работы с одномерным числовым массивом: ввод массива,вывод массива, поиск номера максимума и номера минимума, перестановка элементов массива с заданными номерами. Используя процедуры и функции модуля программиста, разработайте программу: даны два одномерных числовых массива одинаковой размерности. В том из них, где максимум стоит раньше минимума поменять местами максимальный и минимальный элемент.

Решение задачи: «Поиск номера максимума и номера минимума, перестановка элементов массива с заданными номерами»

Листинг программы

unit modul;
interface
const nmax=100;
var n:byte;
type mas=array[1..nmax] of integer;
procedure vvod(var a:mas);
procedure vyvod(a:mas;s:string);
procedure nomer(a:mas;var imn,imx:byte);
procedure obmen(var a:mas;k1,k2:byte);
implementation
procedure vvod;
var i:byte;
begin
for i:=1 to n do
a[i]:=random(100);
end;
procedure vyvod;
var i:byte;
begin
writeln(s);
for i:=1 to n do
write(a[i]:4);
writeln
end;
procedure nomer;
var i:byte;
begin
imn:=1;
imx:=1;
for i:=2 to n do
if a[i]<a[imn] then imn:=i
else if a[i]>a[imx] then imx:=i;
writeln('Номер минимального элемента=',imn,' максимального=',imx)
end;
procedure obmen;
var x:integer;
begin
x:=a[k1];
a[k1]:=a[k2];
a[k2]:=x
end;
end.

Объяснение кода листинга программы

Данный код представляет собой модуль, который включает в себя несколько процедур для работы с массивами. Процедура vvod (ввод) используется для создания массива случайных чисел от 0 до 99. Процедура vyvod (вывод) используется для вывода содержимого массива на экран. Процедура nomer (номер) используется для поиска минимального и максимального элементов в массиве. Процедура obmen (обмен) используется для обмена двух элементов массива. В данном коде используются следующие переменные:

n - количество элементов в массиве (изначально равно 100);
a - массив, в котором хранятся числа;
i - индекс текущего элемента массива;
k1, k2 - индексы элементов, которые будут обмениваться;
imn, imx - индексы минимального и максимального элементов соответственно. Код начинается с определения типа данных mas, который представляет собой массив целых чисел. Затем определяются процедуры vvod, vyvod, nomer и obmen. Процедура vvod используется для создания массива случайных чисел. Процедура vyvod используется для вывода содержимого массива на экран. Процедура nomer используется для поиска минимального и максимального элементов в массиве. Процедура obmen используется для обмена двух элементов массива.