Var
max,min,i:integer;
b:real;
a:array[1..9]of integer;
begin
for i:=1 to 9 do
begin
while (a[i]<1) or (a[i]>6) do
begin
write(i,' оценка: ');
readln(a[i]);
end;
if i=1 then
begin
max:=a[1];
min:=a[1];
end;
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
b:=b+a[i];
end;
b:=(b-min-max)/7;
writeln('Зачетная оценка: ',b);
<span>end. </span>
1)
монитор
клавиатура
программист
процессор
2)на фотке
3)
Досье
Досуг
Доступ
Досада
Доспехи
Достаток
Достояние
Достижение
Достоинство
Достопримечательность
Радость
Гордость
Молодость
4) разбиваем это огромное число по две цифры. Первая цифра по горизонтали, вторая по вертикали. Таким образом получаем:
Что? - Где? - Когда?
Не совсем красиво но вроде как правильно. Добавлю пояснение(схема)