Среднее из неизвестного количества чисел(Почему не правильно считает?)

@Rodion_Gubila · Регистрация: 06.10.2014

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

Подскажите почему программа считает не правильно, если в последовательности есть отрицательные числа? Например при в вводе "5 4 3 -2" выводится 5

Pascal

Program LB3_1b;
uses crt;
var
 n    : byte;
 s, a : integer;
 Sr   : real;
begin
 clrscr;
 Sr:=0;
 s:=0;
 n:=0;
 Write('Введите последовательность и дважды нажмите Enter:');
 Repeat
  readln(a);
  s:= s+a;
  n:=n+1;
 Until eoln;
Sr:=s/n;
writeln('‘Среднее число : ', Sr:4:2);
readln;
readln
end.

@Puporev · 06.10.2014, 18:08

У меня все верно считает и выводит 2.5

@Rodion_Gubila · 06.10.2014, 18:11 **[ТС]**

Понял в чем косяк. Я думал что нет разницы как вводить и вводил все одной строкой через пробел)

@bormant · 06.10.2014, 18:56

Rodion_Gubila,
замените readln(a); на Read(a); и будет как написали.

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	06.10.2014, 18:08	2
	У меня все верно считает и выводит 2.5 2

@Rodion_Gubila 0 / 0 / 0 Регистрация: 06.10.2014 Сообщений: 2
	06.10.2014, 18:11 [ТС]	3
	Понял в чем косяк. Я думал что нет разницы как вводить и вводил все одной строкой через пробел) 0

@bormant Модератор 7771 / 4600 / 2824 Регистрация: 22.11.2013 Сообщений: 13,080 Записей в блоге: 1
	06.10.2014, 18:56	4
	Rodion_Gubila, замените readln(a); на Read(a); и будет как написали. 1