Вычислить среднее арифметическое ненулевых элементов массива целых чисел

@Sonya123456789 · Регистрация: 14.06.2018

Delphi

Var a:array [1..5] of integer;
i,r,b:integer;
begin
i:=strtoint(Edit1.Text)+strtoint(Edit2.Text)+strtoint(Edit3.Text)+strtoint(Edit4.Text)+strtoint(Edit5.Text);
r:=5;
b:=i/r;**************************
Label1.Caption:=Floattostr(b);
end;
 
end.

Как сделать среднее арифметическое? Что не так?

@Zombi_sib · 15.06.2018, 11:05

переменная "b" у Вас объявлена как целочисленная объявите ее как double или Extended и уберите этот набор звездочек или сделайте его коментарием

@Sonya123456789 · 15.06.2018, 11:16 **[ТС]**

Спасибо.
На счет звездочек это я так чтобы было видно где ошибка)

@D1973 · 15.06.2018, 11:21

Сообщение от Sonya123456789

чтобы было видно где ошибка

Да оно и так понятно: не может операция деления ( / ) возвращать целочисленное значение, несмотря на очевидность того, что результат - целое

@Zombi_sib 378 / 331 / 89 Регистрация: 26.05.2010 Сообщений: 750
	15.06.2018, 11:05	2
	Сообщение было отмечено Sonya123456789 как решение Решение переменная "b" у Вас объявлена как целочисленная объявите ее как double или Extended и уберите этот набор звездочек или сделайте его коментарием 1

@Sonya123456789 2 / 0 / 0 Регистрация: 14.06.2018 Сообщений: 105
	15.06.2018, 11:16 [ТС]	3
	Спасибо. На счет звездочек это я так чтобы было видно где ошибка) 0

@D1973 Модератор 8335 / 5548 / 2263 Регистрация: 21.01.2014 Сообщений: 23,827 Записей в блоге: 3
	15.06.2018, 11:21	4
	Сообщение от Sonya123456789 чтобы было видно где ошибка Да оно и так понятно: не может операция деления ( / ) возвращать целочисленное значение, несмотря на очевидность того, что результат - целое Миниатюры 0

Опции темы

Вычислить среднее арифметическое ненулевых элементов массива целых чисел

Решение