Информатика, опубликовано 2018-08-22 23:42:00 by Гость

Прошу,помогите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.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.