Прошу,помогите 1.Найти среднее арифметическое трех целых случайных чисел, принадлежащих промежутку [0; 10).
а какое действие с a и b выполняется?
можешь это решить)
ага, могу
а числа с клавиатуры вводятся? или рандомные?
рандомные
спасибо))))
ок)
не за что) сейчас все будет)
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.
ого!Спасибо огромное)))))))))))))))0
не за что, у меня все работает, я проверил
еще раз благодарю,ты меня спас))))
рад был помочь)