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

ого!Спасибо огромное)))))))))))))))0

не за что, у меня все работает, я проверил

еще раз благодарю,ты меня спас))))

рад был помочь)

vara,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.