Question

найти среднее арифметическое трех целых случайных чисел, принадлежащих промежутку {0;10)

Answer 1

var a,b,c:integer;
begin
a:=random(10);
writeln('a = ',a);
b:=random(10);
writeln('b = ',b);
c:=random(10);
writeln('c = ',c);
writeln('Среднее арифметическое =  ',(a+b+c)/3);
end.

Пример:
a = 4
b = 2
c = 9
Среднее арифметическое =  5