Цитата:
Сообщение от PHILOSOPH13
1)Дано целое число N(>2) и набор из N чисел - значений некоторой величины, полученных в N опытах. Найти среднее значение этой величины. При вычислении среднего значения не учитывать минимальное и максимальное из имеющихся в наборе значений.
|
Код:
Const
N=30;
VAR
Nactual:BYTE;
A:ARRAY[1..N] of WORD;
i:INTEGER;
Min,Max:WORD;
Medium:Real;
BEGIN
RANDOMIZE;
WriteLn('Initial array:');
Min:=100;
Max:=0;
For i:=1 to N do
begin
A[i]:=RANDOM(20)+40;
Write(A[i]:4);
If A[i]>Max then Max:=A[i];
If A[i]<Min then Min:=A[i];
end;
WriteLn;
Nactual:=0;
Medium:=0;
For i:=1 to N do
If (A[i]>Min) and (A[i]<Max) then
begin
INC(Nactual);
Medium:=Medium+A[i];
end;
WriteLn('Medium= ',Medium/Nactual:6:3);
ReadLn;
END.