Аполните массив случайными числами в интервале [0,100] и найдите среднее арифметическое его значений. Пример: Массив: 1 2 3 4 5 Среднее арифметическое 3.000 Язык програмирования паскаль
Аполните массив случайными числами в интервале [0,100] и найдите среднее арифметическое его значений. Пример: Массив: 1 2 3 4 5 Среднее арифметическое 3.000 Язык програмирования паскаль
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program AverageArray;
var
arr: array[1..10] of Integer;
i, sum: Integer;
average: Real;
begin
sum := 0;
Randomize;
for i := 1 to 10 do
begin
arr[i] := Random(101); // генерация случайного числа от 0 до 100
sum := sum + arr[i];
Write(arr[i], ' ');
end;
average := sum / 10;
Writeln;
Writeln('Среднее арифметическое: ', average:0:3);
end.