Составить программу
оценки на соревнованиях по фигурному катанию выставляются 9 судьями. потом одна самая высокая и самая низкие оценки отбрасываются и в зачет идет среднее арифметическое оставшихся оценок. составьте программу, которая определяет зачетную оценку спортсмена. оценки судей ввести в клавиатуры (целые числа от 1 до 6)
var
max,min,i:integer;
b:real;
a:array[1..9]of integer;
begin
for i:=1 to 9 do
begin
while (a<1) or (a>6) do
begin
write(i,' оценка: ');
readln(a);
end;
if i=1 then
begin
max:=a[1];
min:=a[1];
end;
if a>max then max:=a;
if a<min then min:=a;
b:=b+a;
end;
b:=(b-min-max)/7;
writeln('Зачетная оценка: ',b);
end.
что тут не так