найти среднее арифметическое вектора, вектор N<=40 Опции

[Борис]

Дан вектор В(N), N<=40. Найти среднее арифметическое всех элементов вектора за исключением
максимального и минимального по абсолютной величине. (учесть, что |max| u |min| могут быть несколько)

нужно написать все с процедурами и функцией. Сделайте пожалучста кто-нибудь. А то я не знаю как описывать процедуры с функциями...

[klem4]

Во первых, что уже готово ? Во вторых зайди сюда : FAQ : Массивы, матрицы, типичные задачи, если есть проблемы в работе с массивами

А алгоритм решение твоей задачи следующий : находишь абсолютные значение максимального и минимального элементов, затем делеаешь следующее :

sr := 0;
count := 0;
for i := 1 to n do
 if (x[i] <> min) and (x[i] <> max) then begin
    sr := sr + x[i];
    inc(count);
end;

if count <> 0 then sr := sr / count;

Сообщение отредактировано: klem4 - 10.02.2006 17:55