не могу написать прогу(((

[dagggggger]

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

[Ol'ga_new]

В цикле считаешь сумму элементов, потом делишь на кол. элементов, получаешь среднее значение, в новом цикле проверяешь больше данный элемент среднего значения или нет, если больше, то новые переменные: одну увеличиваешь на это значение к другой добавляешь 1.
после выхода из цикла делишь получившееся значение на количество(новые переменные), и не забудь про проверку на отсутствие(вдруг все элементы массива=). Дерзай!!!

[dagggggger]

можно тебя попросить написать прогу с небольшими пояснениями, а то у меня как раз с циклами завал)))плиз

[Niro]

Вот держите

for i:=1 to n do
  s:=s+mas[i];
s:=s/n;            находим среднее арифметическое всех элементов

for i:=1 to n do
  if mas[i]>s then begin 
                     rez:=rez+mas[i]; 
                     k:=k+1; 
                   end;
if k<>0 then rez:=rez/k; -  находим среднее арифметическое элементов больше среднего арифм - блин каламбур получился

ввод массива random'ом оформите сами - поиск в помощь