Напишите программу на паскале.Сформировать массив n(6) случайных чисел,выбранных на интервале от -5 до 8,вывести на экран первоначальный массив,отсортированный по возрастанию и сумму элементов массива

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

program RandomArray;
const
n = 6;
var
arr: array[1..n] of Integer;
i, j, temp, sum: Integer;
begin
Randomize;
sum := 0;
for i := 1 to n do
begin
arr[i] := Random(14) - 5; // случайное число от -5 до 8
sum := sum + arr[i];
end;
// Вывод первоначального массива
WriteLn('Первоначальный массив:');
for i := 1 to n do
begin
Write(arr[i], ' ');
end;
WriteLn;
// Сортировка массива по возрастанию
for i := 1 to n - 1 do
begin
for j := 1 to n - 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;
// Вывод отсортированного массива
WriteLn('Массив, отсортированный по возрастанию:');
for i := 1 to n do
begin
Write(arr[i], ' ');
end;
WriteLn;
// Вывод суммы элементов массива
WriteLn('Сумма элементов массива: ', sum);
end.

Эта программа создает массив случайных чисел от -5 до 8, выводит его на экран, сортирует его по возрастанию и выводит также сумму элементов массива.