Задача в Паскале. Дано n чисел, введённых с клавиатуры. Найти их среднее арифметическое

31 Авг 2019 в 04:41
241 +1
1
Ответы
1

program AverageCalculator;

var
n, i, sum: integer;
average: real;

begin
sum := 0;

write('Enter the number of elements: ');
readln(n);

writeln('Enter ', n, ' numbers: ');
for i := 1 to n do
begin
readln(num);
sum := sum + num;
end;

average := sum / n;

writeln('Average: ', average);

end.

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