АЛ
Александр Лавриченко
Как найти срднее арифметическое n-го введённых чисел. (Паскаль) Какой код программы будет.
А если не знаем, сколько кол-во чисел?
Сколько будет введено
А если не знаем, сколько кол-во чисел?
Сколько будет введено
Всё складываем и делим на количество введённых чисел. В чём проблема?
Тогда считаем, сколько было введено, а делим по окончании ввода.
var
ave:real;
n,i,num :integer;
begin
write('Введите количество чисел: ');
readln(n);
ave := 0;
writeln('Вводите числа: ');
for i := 1 to n do begin
read(num);
ave := ave + num;
end;
ave := ave / n;
writeln('Среднее значение: ',ave);
end.