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

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

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

Var
a,b,c: Integer;
r: Real;
begin
 randomize;
 a:=random(10);
 b:=random(10);
 c:=random(10);
 r:=(a+b+c)/3;
 Writeln(Первое число: ,a);
 Writeln(Второе число: ,b);
 Writeln(Третье число: ,c);
 Writeln(Среднее арифметическое: ,r);
end.