Приблизительное число! Опции

[@lFi]

Дано 11 переменных, нужно найти какие из них приблизительно равны арифметическому среднему переменных.
Вопрос в том как найти какие из них приблизительно равны арифметическому среднему.

В самой программе я остановился вот где:

program num;
uses crt;
const
n=11;
var
a:array[1..n] of integer;
i,k,s:integer;
m:real;
begin
     clrscr;
     writeln('Press key');
     writeln;
     clrscr;
             for i:=1 to n do
                 begin
                      writeln('Enter ',i,' number ');
                      readln(a[i]);
                 end;
             for i:=1 to n do
                 begin
                      s:=s+a[i]; k:=k+1;
                 end;
     m:=s/k;
     writeln;
     writeln('arithmetic mean is ',m);                    
     readkey;
end.

а дальше как не знаю Помогите,pls

М

Текст программы заключай в теги CODE, а не QUOTE. Исправлено Лопарь

Сообщение отредактировано: Lapp - 21.06.2007 7:21