массивы испортили печень

[veter_s_morya]

Задали посмотреть дома задачки. Посмотрел...!
задача:1 (потом еще скину сюда, если не разберусь):
В спортивных соревнованиях 10 судей выстави¬ли свои оценки спортсмену. Итоговая оценка опреде¬ляется так: самая наибольшая и самая наименьшая оценки из общей суммы удаляются (если таких оце¬нок несколько, то удаляется только одна из них), за¬тем среди оставшихся подсчитывается среднее ариф¬метическое. Написать программу, которая позволила бы по известным оценкам судей автоматически выс¬тавлять итоговую оценку спортсмену.

var
mas:array [1..10] of real; max, min:real; i,j: integer;
begin
     for i:=1 to 10 do    readln (mas[i]);
     max:=mas[1];
     min:=mas[1];
     begin

for i:=2 to 10 do     if mas[i]>max then max:=mas[i];
if mas[i]<min then min:=mas[i];
     end;

     Writeln(max:4:2, min:4,2);    readln;
     end.

Как говорится, шедевр долог до завершения.

[Stilet]

От проблема? Пробегай по всем элементам, все суммируй, паралельно отбирай максимум-минимум, потом их вычитай из общей суммы.
ДЕлов то... и без сортировки.

[D-mon]

Var mas:array [1..10] of real; 
     max, min,sum:real; 
     i,j: integer;
begin
for i:=1 to 10 do    readln (mas[i]);
sum:=0;   
min:=100000;
max:=-100000;
for i:=1 to 10 do 
 begin
  if(min>mas[i])then min:=mas[i];
  if(max>mas[i])then max:=mas[i];
  sum:=sum+mas[i];
 end;
 sum:=(sum-min-max)/8;
 ReadLn('Итоговая оценка: ', sum);
end.

Если я правильно понял задание то это выглядет приблизительно так.

[Карась]

Яб зашёл на википедию и скопипастил пузырьковый алгоритм.
Дальше удалил бы первый и последний элемент.... дальше понятно что.

[D-mon]

Зачем тут пузырек. Где сказано что надо что то сортировать??? Я не вижу, может мне покажешь Карась. Задача тривиальна. Написана без компилятора.

[-=<[Evklidd]>=-]

По-моему, в коде D-mon'a есть ошибка:

if(min>mas[i])then min:=mas[i];
if(max>mas[i])then max:=mas[i];

Почему для min условие такое min > mas[i], когда должно быть min < mas[i]&
К тому же зачем два одинаковых цикла делать если можно в одном сделать, исправленный алгоритм:

Var mas:array [1..10] of real;   
     max, min,sum:real;   
     i,j: integer;  
begin
sum:=0;  
for i:=1 to 10 do  
 begin
  readln(mas[i]);    
  sum:=sum+mas[i];
 end; 
min:=100000;  
max:=-100000;  
for i:=1 to 10 do   
 begin  
  if(min<mas[i])then min:=mas[i];  
  if(max>mas[i])then max:=mas[i];  
 end;  
 sum:=(sum-min-max)/8;  
 ReadLn('Итоговая оценка: ', sum);  
end.

[Stilet]

D-mon

Вообще-то все вычисления можно делать прямо при вводе. Прога проще будет.

[veter_s_morya]

Код:
view plaincopy to clipboardprint?

Var mas:array [1..10] of real;
max, min,sum:real;
i,j: integer;
begin
for i:=1 to 10 do readln (mas[i]);
sum:=0;
for i:=1 to 10 do sum:=sum+mas[i];
min:=100000;
max:=-100000;
for i:=1 to 10 do
begin
if(min>mas[i])then min:=mas[i];
if(max>mas[i])then max:=mas[i];
end;
sum:=(sum-min-max)/8;
ReadLn('Итоговая оценка: ', sum);
end.

Var mas:array [1..10] of real;
max, min,sum:real;
i,j: integer;
begin
for i:=1 to 10 do readln (mas[i]);
sum:=0;
for i:=1 to 10 do sum:=sum+mas[i];
min:=100000;
max:=-100000;
for i:=1 to 10 do
begin
if(min>mas[i])then min:=mas[i];
if(max>mas[i])then max:=mas[i];
end;
sum:=(sum-min-max)/8;
ReadLn('Итоговая оценка: ', sum);
end.
Если я правильно понял задание то это выглядет приблизительно так.
__________________

D-mon, я проверил этот код... не идет! Не правильно считает! И вывод writeln.

[-=<[Evklidd]>=-]

вы воообще читаете посты которые вам пишут?

По-моему, в коде D-mon'a есть ошибка:

Почему для min условие такое min > mas[i], когда должно быть min < mas[i]?
К тому же зачем два одинаковых цикла делать если можно в одном сделать, исправленный алгоритм:

 
Var mas:array [1..10] of real;      
     max, min,sum:real;      
     i,j: integer;     
begin   
sum:=0;     
for i:=1 to 10 do     
 begin   
  readln(mas[i]);       
  sum:=sum+mas[i];   
 end;    
min:=100000;     
max:=-100000;     
for i:=1 to 10 do      
 begin     
  if(min<mas[i])then min:=mas[i];     
  if(max>mas[i])then max:=mas[i];     
 end;     
 sum:=(sum-min-max)/8;     
 ReadLn('Итоговая оценка: ', sum);     
end.

[Stilet]

Вот:

Var mas:array [1..10] of real;         
     max, min,sum:real;
     i: integer;
begin
for i :=1  to 10  do
begin
 readln(mas[i]);
 if mas[i]<min then min:=mas[i];
 if mas[i]>max then max:=mas[i];
 sum:=sum+mas[i];
end;
writeln((sum-min-max)/10);
readln;
end.

Че тут париться