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

[pristizh]

Зачёт........

[pristizh]

Только если у тебя среднее значение риал то и массив должен быть of real.......................

[_-Re@l-_]

Только если у тебя среднее значение риал то и массив должен быть of real.......................

Ты так не шути
Просто нужно подправить вот так:

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] = Trunc(Sr) Then Write('A[',i,'] = Sr = ',Sr:5:2);
        Readln;
end.

[pristizh]

ну так прокатит

[pristizh]

ну это притом что в массив целые числа будут забиты

[Rastislav]

Программу на Паскале написать надо.
Я знаю что она легкая просто я еще не разобрался с этим языком.
Спасибо вам за ответы...
Я просто был Без доступа к интернету временно...