ПАСКАЛЬ! 1. Подсчитать среднее арифметическое натуральных чисел, принадлежащих диапазону от 1 до N
ПАСКАЛЬ! 1. Подсчитать среднее арифметическое натуральных чисел, принадлежащих диапазону от 1 до N
Гость
Ответ(ы) на вопрос:
Гостьconst
k = 15;
var
x: array[1..k] of integer;
i, n, m: integer;
begin
Randomize;
Write('Введите значение N -> ');
Readln(n);
Write('Элементы массива: ');
m := 0;
for i := 1 to k do
begin
x[i] := Random(n + 1) + 1;
m := m + x[i];
Write(x[i]:4);
end;
Writeln;
Writeln('Среднее арифметическое равно ', m / k:0:4)
end.
Тестовое решение:
Введите значение N -> 50
Элементы массива: 22 31 1 35 18 41 1 35 46 12 48 27 35 37 29
Среднее арифметическое равно 27.8667
Не нашли ответ?
Похожие вопросы