Все элементы заданного одномерного массива уменьшить на величину равную наименьшему элементу данного массива.(ПАСКАЛЬ)

Предыдущий
вопрос Следующий
вопрос

Пример реализации данной задачи на языке Pascal:

program DecreaseArrayElements;
const
N = 5; // размер массива
var
arr: array[1..N] of Integer;
i, minElement: Integer;
begin
// заполнение массива случайными значениями
randomize();
for i := 1 to N do
begin
arr[i] := random(100); // случайное число от 0 до 99
write(arr[i], ' ');
end;
writeln;
// находим наименьший элемент массива
minElement := arr[1];
for i := 2 to N do
begin
if arr[i] < minElement then
minElement := arr[i];
end;
// уменьшаем все элементы массива
for i := 1 to N do
begin
arr[i] := arr[i] - minElement;
write(arr[i], ' ');
end;
end.

Данный код сначала заполняет массив arr случайными значениями, затем находит минимальный элемент этого массива и уменьшает все элементы на величину минимального элемента. Результат выводится на экран до и после уменьшения элементов.