Заполнить линейный массив из 10 элементов случайными числами. Вычислить среднее арифметическое всех его элементов.Pascal ABC

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

program AverageCalculation;

var
arr: array[1..10] of integer;
i, sum, average: integer;

begin
sum := 0;

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

average := sum div 10;

writeln('Исходный массив:');
for i := 1 to 10 do
begin
write(arr[i], ' ');
end;

writeln;
writeln('Среднее арифметическое всех элементов массива: ', average);

end.