Напишите программу, которая для последовательности натуральных чисел находит среднее арифметическое. Программа получает на вход числа, кол-во чисел неизвестно, последовательность заканчивается числом 0 (0 в последовательность не входит)
Ответы
Ответ дал:
0
var
a: array[1..1000] of integer;
sa: real;
i: byte;
begin
writeln ('Введите числа: ');
i:=0;
sa:=0;
repeat
i:=i+1;
read (a[i]);
sa:=sa+a[i];
until a[i]=0;
sa:=sa/(i-1);
writeln ('Среднее арифметическое чисел = ',sa);
end.
----------------------------------------------
Пример:
Введите числа:
2 4 2 4 2 4 0
Среднее арифметическое чисел = 3
a: array[1..1000] of integer;
sa: real;
i: byte;
begin
writeln ('Введите числа: ');
i:=0;
sa:=0;
repeat
i:=i+1;
read (a[i]);
sa:=sa+a[i];
until a[i]=0;
sa:=sa/(i-1);
writeln ('Среднее арифметическое чисел = ',sa);
end.
----------------------------------------------
Пример:
Введите числа:
2 4 2 4 2 4 0
Среднее арифметическое чисел = 3
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад