Программа по нахождению среднего арифметического на языке Паскаль Составьте программу нахождения среднего арифметического три целых случайных чисел, принадлежащих промежутку [0;10]

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

program AverageCalculator;

var
num1, num2, num3: integer;
average: real;

begin
Randomize;

num1 := Random(11); // Генерация случайного числа от 0 до 10
num2 := Random(11);
num3 := Random(11);

average := (num1 + num2 + num3) / 3.0;

writeln('Случайные числа: ', num1, ', ', num2, ', ', num3);
writeln('Среднее арифметическое: ', average:0:2);

end.