Pascal написать программу обработки массива :Определить минимальный элемент массива. Сформировать массив А по формуле Ai=Xi-Xmin

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

Пример программы на языке Pascal:

program MinElementArray;
const
n = 5; // размер массива
var
i, minElementIndex, Xmin: integer;
X: array[1..n] of integer;
A: array[1..n] of integer;
begin
// Ввод элементов массива X
writeln('Введите элементы массива X:');
for i := 1 to n do
readln(X[i]);
// Находим минимальный элемент массива X и его индекс
minElementIndex := 1;
Xmin := X[1];
for i := 2 to n do
begin
if X[i] < Xmin then
begin
Xmin := X[i];
minElementIndex := i;
end;
end;
// Формируем массив A по формуле Ai = Xi - Xmin
for i := 1 to n do
A[i] := X[i] - Xmin;
// Выводим минимальный элемент массива и новый массив A
writeln('Минимальный элемент массива X: ', Xmin);
writeln('Массив A:');
for i := 1 to n do
write(A[i], ' ');
end.

Программа сначала запрашивает у пользователя элементы массива X, затем находит минимальный элемент этого массива и его индекс. Затем программа формирует новый массив A по заданной формуле и выводит на экран минимальный элемент X и новый массив A.