Найти среднее арифметическое введенной последовательности чисел

@Derokket · Регистрация: 26.10.2015

Author24 — интернет-сервис помощи студентам

Ввести с клавиатуры последовательность целых чисел, заканчивающуюся 0. Найти
среднее арифметическое этой последовательности

@ZX Spectrum-128 · 10.11.2015, 08:38

Pascal

var
  s,k,x:integer;
begin  
  k:=0;
  s:=0;
  repeat
    readln(x);
    inc(k);
    s:=s+x;
  until x=0;
  dec(k);
  writeln(s/k:0:0);
end.

@Cyborg Drone · 15.11.2015, 11:01

ZX Spectrum-128, последовательность имеет полное римское право быть пустой. В случае ввода пустой последовательности программа завершится аварийно из-за попытки деления на 0. К тому же, среднее арифметическое очень редко бывает целым числом. Я бы так написал:

Pascal

var s, k, x: integer;
begin
  k := -1;
  s := 0;
  repeat
    readln(x);
    inc(k);
    s := s + x;
  until x = 0;
  if k = 0
    then writeln('Введена пустая последовательность, вычислить среднее арифметическое невозможно.')
    else writeln(s/k)
end.

@Derokket 0 / 0 / 0 Регистрация: 26.10.2015 Сообщений: 9
		1
	Найти среднее арифметическое введенной последовательности чисел 10.11.2015, 03:27. Показов 1558. Ответов 2 Метки нет (Все метки) Ввести с клавиатуры последовательность целых чисел, заканчивающуюся 0. Найти среднее арифметическое этой последовательности 0

	15.11.2015, 11:01

Найти среднее арифметическое введенной последовательности чисел

Решение