Задача на паскале (массивы)

[oR2n]

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

[XTen]

Пиши решу Дёшево
ICQ: 410691984

[flash1989]

Пиши, сделаю без проблем
icq: 588002847
email: flash_1989@ukr.net

[Колядин Максим]

1) Находишь максимальный элемент в массиве

Код: Выделить всё

max:=a[1];
for i:=2 to n do if a[i]>max then max:=a[i];

2) Находишь данные для вычисления среднего арифметического:

Код: Выделить всё

s:=0; //сумма всех элементов массива
for i:= 1 to n do s:=s+a[i];

3) Находишь среднее арифметическое без максимального элемента

Код: Выделить всё

answer:=(s-max)/(n-1);