найти колличество элементов массива,равных среднему арифметическому всех элементов

@Amellia · Регистрация: 15.03.2010

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

Помогите пожалуйста решить:
задан массив А, длина массива N<=10 состоит из действительных элементов.
найти колличество элементов массива,равных среднему арифметическому всех элементов.
Вот,что я сделала...надеюсь верно)не могу закончить....

Pascal

   program laba2;
const
n=10;
var
SUM,AR:double;
i:integer;
a:array[1..n] of integer;
begin
writeln('Vvedite elementi massiva');
 begin
  writeln('a[ ',i,' ]= ');
  readln(a[i]);
 end;
for i:=1 to n do
   SUM:=0;
   SUM:=a[i]+SUM;
   AR:=SUM/10;
   writeln(AR:0:2);

@Puporev · 15.03.2010, 13:30

найти колличество элементов массива,равных среднему арифметическому в
Что-то не так с условием. Вещественные числа, полученные в результате вычислений, никогда не будут равны.

@Amellia · 15.03.2010, 13:35 **[ТС]**

хмм...но тут условие точно такое...

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	15.03.2010, 13:30	2
	найти колличество элементов массива,равных среднему арифметическому в Что-то не так с условием. Вещественные числа, полученные в результате вычислений, никогда не будут равны. 0

@Amellia 0 / 0 / 0 Регистрация: 15.03.2010 Сообщений: 3
	15.03.2010, 13:35 [ТС]	3
	хмм...но тут условие точно такое... 0