Pascal задача.нужно решение

[Avelhar]

В массиве m(10) фиксируется 10 последних аварийных ситуаций по напряжении для 10 основных потребителей предприятия. Узнать среднее значение между минимальным и максимальным значением для этих потребителей и построить матрицу W(10) , для потребителей критические отклонения которых превышают 20% от среднего. Построить диаграму.

[Arigato]

Кому нужно, вам? Тогда вы должны приложить к этому какие-то усилия. Или решить самостоятельно от А до Я, или же попытаться, а что не получится, спросить на форуме.
А если вам нужна халява, то это в раздел Фриланс. Там вам на халяву за определенную сумму решат в лучшем виде

[Avelhar]

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

[temaps]

(max+min)/2

[s-andriano]

Сообщение от temaps

(max+min)/2

Этот вариант называется средним арифметическим.
Еще есть среднее геометрическое, среднее гармоническое и медиана.

[Serge_Bliznykov]

Сообщение от s-andriano

Сообщение от

Этот вариант называется средним арифметическим.

я бы уточнил, что что в данном случае это среднеарифметическое для ДВУХ элементов (минимального и максимального).

ну и да, когда говорят о среднем значении, обычно среднеарифметическое и имеют в виду..

[Avelhar]

uses
     crt;
     {graphabc;}
     const
     n = 10;


     var
     a: array [1..n] of integer;
     i: integer;
     f: array [1..n] of integer;
     j: integer;
     k: integer;
     o: integer;
     p: integer;
     q: real;
     IndexMin: integer;
     IndexMax: integer;

     Begin
     clrscr;
     randomize;

     For i := 1 to n do a[i] := 100 + random(200);
     f[i]:=a[i];

     writeln(a[i]);
     readln;
     IndexMin := n;
     For i := n - 1 downto 1 do
     begin
     if a[i] < a[IndexMin] then IndexMin := i;
     end;

     IndexMax := n;
     For j := n + 1 downto n do
     begin
     if f[i] > f[IndexMax] then IndexMax := j;
     end;

     Writeln(a[IndexMin]);
     writeln(f[IndexMax]);
     readln;

     p := a[IndexMin];
     o := f[indexMax];
     k := (p+o) div 2;
     writeln(k);
     readln;
     q := (k div 100);
     writeln(q);
     readln;




end.

На вычислении процентов стопорнулся( Как дальше стоит правильно вычеслять?

[temaps]

For j := n + 1 downto n do

Уже тут ошибка. downto до 1, вероятно, иначе этот цикл работать не будет.

На вычислении процентов стопорнулся( Как дальше стоит правильно вычеслять?

20% от среднего - это среднее умножить на 0.2