Найти в массиве минимальное число и получить новый массив - Turbo Pascal

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

Дан массив В (24). Найти в нем минимальное число и получить новый массив ,делением элементов исходного массива на это минимальное число . Оба массива отпечатать.

Решение задачи: «Найти в массиве минимальное число и получить новый массив»

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

const
n := 10;
var
i, min : Integer;
mas : Array[1..n] of integer;
begin
 
for i:=1 to n do
read(mas[i]);
 
min := mas[1];
 
for i:=1 to n do
if min > mas[i] then min := mas[i];
 
for i:=1 to n do
mas[i] := round(mas[i]/min);
 
дальше вывод
end;

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

В данном коде используется язык программирования Turbo Pascal. Он предназначен для решения задач различных уровней сложности. В начале кода объявляются необходимые переменные: n (количество элементов в массиве), i (индекс элемента массива), min (минимальное значение в массиве), mas (массив чисел). Затем происходит чтение значений массива с помощью функции read. Значения считываются в переменную mas. После этого находится минимальное значение в массиве и сохраняется в переменной min. Далее происходит проверка каждого элемента массива на большее значение, чем текущее минимальное значение. Если находится элемент с меньшим значением, то он становится новым минимальным значением. После этого происходит обновление каждого элемента массива, делением его значения на новое минимальное значение и округлением результата до целого числа с помощью функции round. В конце кода происходит вывод полученного массива.