Вычислить среднее арифметическое чисел

@Апасный · Регистрация: 24.09.2016

Пользователь вводит целые числа. Вычислить среднее арифметическое тех чисел, в
разряде десятков которых стоит число 4. 0 считать меткой окончания ввода.

@Puporev · 28.10.2016, 15:37

Delphi

sred:=0;
k:=0;
repeat
//вводим куда-то целые числа a
a:=abs(a);
if a mod 100 div 10=4 then
 begin
  sred:=sred+a;
  k:=k+1;
 end;
until a=0;
if k>0 then sred;=sred/k;
//вывод среднего

@Апасный · 28.10.2016, 15:56 **[ТС]**

Puporev, можно спросить,а для чего нужна 5 строка в этом коде?

@cfbogd · 28.10.2016, 16:05

Сообщение от Апасный

а для чего нужна 5 строка в этом коде?

функция ABS возвращает абсолютное значение А, то есть модуль А

@Puporev · 28.10.2016, 16:06

Это если вели отрицательное число то и ответ будет отрицательный, например a=-125 выведет -2

@Апасный · 28.10.2016, 16:59 **[ТС]**

Puporev, сенк

@Апасный 0 / 0 / 0 Регистрация: 24.09.2016 Сообщений: 77
		1
	Вычислить среднее арифметическое чисел 28.10.2016, 15:28. Показов 1156. Ответов 5 Метки нет (Все метки) Пользователь вводит целые числа. Вычислить среднее арифметическое тех чисел, в разряде десятков которых стоит число 4. 0 считать меткой окончания ввода. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Апасный 0 / 0 / 0 Регистрация: 24.09.2016 Сообщений: 77
	28.10.2016, 15:56 [ТС]	3
	Puporev, можно спросить,а для чего нужна 5 строка в этом коде? 0

@cfbogd botsik 262 / 262 / 140 Регистрация: 05.06.2016 Сообщений: 1,247 Записей в блоге: 1
	28.10.2016, 16:05	4
	Сообщение от Апасный а для чего нужна 5 строка в этом коде? функция `ABS` возвращает абсолютное значение А, то есть модуль А 0

@Puporev Почетный модератор 64270 / 47569 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	28.10.2016, 16:06	5
	Это если вели отрицательное число то и ответ будет отрицательный, например a=-125 выведет -2 0

@Апасный 0 / 0 / 0 Регистрация: 24.09.2016 Сообщений: 77
	28.10.2016, 16:59 [ТС]	6
	Puporev, сенк 0

Опции темы

Вычислить среднее арифметическое чисел

Решение