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