Программа по нахождению среднего арифметического на языке Паскаль Составьте программу нахождения среднего арифметического три целых случайных чисел, принадлежащих промежутку [0;10]

26 Мая 2024 в 19:40
42 +1
0
Ответы
1

program AverageCalculator;

var
num1, num2, num3: integer;
average: real;

begin
Randomize;

num1 := Random111111; // Генерация случайного числа от 0 до 10
num2 := Random111111;
num3 := Random111111;

average := num1+num2+num3num1 + num2 + num3num1+num2+num3 / 3.0;

writeln′Случайныечисла:′,num1,′,′,num2,′,′,num3'Случайные числа: ', num1, ', ', num2, ', ', num3Случайныечисла:,num1,,,num2,,,num3;
writeln′Среднееарифметическое:′,average:0:2'Среднее арифметическое: ', average:0:2Среднееарифметическое:,average:0:2;

end.

28 Мая 2024 в 20:03
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир