Страница 1 из 1

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

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

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

Добавлено: 04 дек 2010, 12:53
XTen
Пиши решу Дёшево
ICQ: 410691984

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

Добавлено: 04 дек 2010, 13:46
flash1989
Пиши, сделаю без проблем
icq: 588002847
email: flash_1989@ukr.net

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

Добавлено: 09 дек 2010, 00:59
Колядин Максим
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);