Дан массив содержащий 2018 положительных целых чисел не превышающих 1000 необходимо уменьшить все элементы которые больше 100 на одно и то же значение при этом минимальный из них должен стать равным 100. Написать программу в Pascal.

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

program DecreaseArrayElements;

const
N = 2018;
MAX_VALUE = 1000;

var
arr: array[1..N] of integer;
i, minValue, diff: integer;

begin
minValue := MAX_VALUE;

// заполнение массива и поиск минимального значения
for i := 1 to N do
begin
arr[i] := random(MAX_VALUE+1);
if arr[i] < minValue then
minValue := arr[i];
end;

// вычисление разницы между минимальным значением и 100
diff := minValue - 100;

// уменьшение всех элементов, которые больше 100
for i := 1 to N do
begin
if arr[i] > 100 then
arr[i] := arr[i] - diff;
end;

// вывод измененного массива
for i := 1 to N do
writeln(arr[i]);

end.