Паскаль: Дана последовательность целых чисел, ввод последовательности заканчивается 0 (до первого введенного нуля), найти среднее арифметическое чисел из последовательности
Паскаль: Дана последовательность целых чисел, ввод последовательности заканчивается 0 (до первого введенного нуля), найти среднее арифметическое чисел из последовательности
Гость
Ответ(ы) на вопрос:
Гостьvar temp, sum, n:integer;
begin
sum:=0;
n:=0;
read(temp);
while(temp>0) do
begin
inc(sum,temp);
inc(n);
read(temp);
end;
writeln;
writeln(sum/n)
end.
Не нашли ответ?
Похожие вопросы