Question

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

Answer 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('Первое число: ',a);
 Writeln('Второе число: ',b);
 Writeln('Третье число: ',c);
 Writeln('Среднее арифметическое: ',r);
end.

Answer 2

ого!Спасибо огромное)))))))))))))))0

Answer 3

не за что, у меня все работает, я проверил

Answer 4

еще раз благодарю,ты меня спас))))

Answer 5

рад был помочь)