Информатика, 9 класс

program H3; var a:array[1..9] of integer; i,max,min,sum,s:integer; sr:real; begin for i:=1 to 9 do begin writeln('введите оценку ', i, '-го судьи (от 1 до 6): '); readln(a[i]); end; writeln('исходный массив: '); for i:=1 to 9 do write(a[i], ' '); writeln; min:=a[1]; for i:=2 to 9 do if a[i]max then max:=a[i]; s:=0; for i:=1 to 9 do s:=s+a[i]; sum:=s-min-max; sr:=sum/7; writeln(' зачетная оценка = ', sr); end.