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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

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.