Дан массив из 25 элементов найти сумму четырех наибольших и четырех наименьших элементов (Pascal)

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

program SumMinMaxElements;

const
SIZE = 25;

var
arr: array[1..SIZE] of Integer;
i, sum, minSum, maxSum: Integer;

begin
// Заполнение массива случайными числами
Randomize;
for i := 1 to SIZE do
arr[i] := Random(100); // случайное число от 0 до 99

// Сортировка массива методом пузырька
for i := 1 to SIZE - 1 do
begin
for j := 1 to SIZE - i do
begin
if arr[j] > arr[j + 1] then
begin
// Обмен значениями
temp := arr[j];
arr[j] := arr[j + 1];
arr[j + 1] := temp;
end;
end;
end;

// Вычисление суммы четырех наименьших элементов
minSum := arr[1] + arr[2] + arr[3] + arr[4];

// Вычисление суммы четырех наибольших элементов
maxSum := arr[SIZE] + arr[SIZE - 1] + arr[SIZE - 2] + arr[SIZE - 3];

// Вывод результатов
writeln('Сумма четырех наименьших элементов: ', minSum);
writeln('Сумма четырех наибольших элементов: ', maxSum);

end.