отыскать среднее арифметическое 3-х целых случайных чисел, принадлежащих промежутку 0;10)

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

Задать свой вопрос
1 ответ
Var a,b,c:integer;
begin
a:=random(10);
writeln('a = ',a);
b:=random(10);
writeln('b = ',b);
c:=random(10);
writeln('c = ',c);
writeln('Среднее арифметическое =  ',(a+b+c)/3);
end.

Пример:
a = 4
b = 2
c = 9
Среднее арифметическое =  5
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт