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

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

program AverageRandomNumbers;

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

begin
randomize;

num1 := random(10);
num2 := random(10);
num3 := random(10);

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

writeln('Random numbers: ', num1, ', ', num2, ', ', num3);
writeln('Average: ', average:0:2);

end.