Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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