Решить в Паскале
Заполнить массив 10 случайными числами (0-100)в одномерный массив, затем вычислить их среднее значение и вывести ее на экран.

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

program AverageValueArray;

var
arr: array[1..10] of Integer;
i, sum, avg: Integer;

begin
sum := 0;

Randomize;

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

// Вычисляем среднее значение
avg := sum div 10;

// Выводим на экран массив
for i := 1 to 10 do
begin
Write(arr[i], ' ');
end;

Writeln;

// Выводим среднее значение на экран
Write('Average value: ', avg);

end.