Прошу,помогите1.Отыскать среднее арифметическое 3-х целых случайных чисел, принадлежащих

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

Задать свой вопрос
Кирилл Фарис
а какое деяние с a и b производится?
Семён Журавихин
можешь это решить)
Алёна Шерстикова
ага, могу
Руслан Патлис
а числа с клавиатуры вводятся? или рандомные?
Озолит Анна
рандомные
Stepan Anshpugaev
спасибо))))
Никита Дюндик
ок)
Иван Лейст
не за что) сейчас все будет)
1 ответ
Var
a,b,c: Integer;
r: Real;
begin
 randomize;
 a:=random(10);
 b:=random(10);
 c:=random(10);
 r:=(a+b+c)/3;
 Writeln('1-ое число: ',a);
 Writeln('Второе число: ',b);
 Writeln('Третье число: ',c);
 Writeln('Среднее арифметическое: ',r);
end.
Васька Немытов
ого!Спасибо огромное)))))))))))))))0
Ника Залысина
не за что, у меня все работает, я проверил
Виктор Ригель
еще раз благодарю,ты меня спас))))
Люда Клаан
рад был помочь)
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт