Найти число равно среднему арифметическому.

[Rastislav]

Задание последовательность из N чисел: a (1), a (2), a (3 ),..., a (N). Найти, есть ли в этой последовательности число равно среднему арифметическому.

[_-Re@l-_]

Находишь среднее арифметическое и потом сравниваешь его с всеми элементами последовательности...

[brans]

уточните в какой среде реализуете данную задачу

[_-Re@l-_]

Да в любой:могу в Borland C++ 3.1,Delphi,Turbo Pascal...Вам какую?

[brans]

задача впринципе не сложная, я тоже как бы в этих программах могу, но в основном сейчас на vba работаю, точнее только начала, но такие задачки уже решать умею))
вот только свои не получаются(((

[_-Re@l-_]

Ну...VBA - это, как я понимаю, бейсик?Или я не прав?

[brans]

он самый)))) только как то туго он у меня в перемешку с екселем идёт

[_-Re@l-_]

Дык решай на паскале, проще будет.

[brans]

автор сообщения что-то совсем не отвечает(((

[_-Re@l-_]

Ну как-то так:

var
     A:array[1..20] of Integer;
     I,S,N:Integer;
     Sr:Real;
begin
        write('Введите N: ');
        readln(N);
        S:=0;
        For I:=1 To N Do
        Begin
                Write('A[',i,'] = ');
                Readln(A[I]);
                Inc(S,A[I]);
        End;
        Sr:=S/N;
        For I:=1 To N Do
        If A[I] = Sr Then Write('A[',i,'] = Sr = ',Sr:5:2);
        Readln;
end.