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

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

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

program RandomArray;
var
n: array[1..6] of integer;
i, sum: integer;
begin
Randomize;
// Заполняем массив случайными числами от -5 до 8
for i := 1 to 6 do
begin
n[i] := Random(14) - 5; // генерируем число от 0 до 13 и вычитаем 5
end;
// Выводим первоначальный массив на экран
writeln('Первоначальный массив:');
for i := 1 to 6 do
begin
write(n[i], ' ');
end;
writeln;
// Сортировка массива по возрастанию
for i := 1 to 5 do
begin
for j := 1 to 6-i do
begin
if n[j] > n[j+1] then
begin
n[j] := n[j] + n[j+1];
n[j+1] := n[j] - n[j+1];
n[j] := n[j] - n[j+1];
end;
end;
end;
// Выводим отсортированный массив на экран
writeln('Отсортированный массив:');
for i := 1 to 6 do
begin
write(n[i], ' ');
end;
writeln;
// Считаем сумму элементов массива
sum := 0;
for i := 1 to 6 do
begin
sum := sum + n[i];
end;
writeln('Сумма элементов массива: ', sum);
end.

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