В массиве из 10 целых чисел подсчитать суммуэлементов, стоящих правее минимального. на паскале

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

Пример решения на языке Pascal:

program FindSumOfElementsAfterMin;
var
arr: array[1..10] of Integer;
i, minValue, minIndex, sumAfterMin: Integer;
begin
// Ввод значений элементов массива
writeln('Введите 10 целых чисел:');
for i := 1 to 10 do
begin
readln(arr[i]);
end;
// Находим минимальное значение и его индекс
minValue := arr[1];
minIndex := 1;
for i := 2 to 10 do
begin
if arr[i] < minValue then
begin
minValue := arr[i];
minIndex := i;
end;
end;
// Находим сумму элементов, стоящих правее минимального
sumAfterMin := 0;
for i := minIndex + 1 to 10 do
begin
sumAfterMin := sumAfterMin + arr[i];
end;
// Выводим результат
writeln('Сумма элементов, стоящих правее минимального элемента: ', sumAfterMin);
end.

Программа сначала запрашивает у пользователя ввод 10 целых чисел и сохраняет их в массив. Затем программа находит минимальное значение и его индекс в массиве. После этого программа считает сумму элементов, стоящих правее минимального, и выводит её на экран.