Question

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

Answer 1

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