Я думаю, что имеется в виду среднее по значению Pascal : var arr : array[0..2] of integer; { если числа целые } i, j, t : integer; begin read(arr[0], arr[1], arr[2]); // самый простой это отсортировать массив // в данном случае можно использовать сортировку "пузырьком" for i := 0 to 2 do for j := 0 to 2 do if arr[ j ] > arr[ j + 1] begin t := arr[ j ]; arr[ j ] := arr[ j + 1]; arr[ j + 1 ] := t; end; //Конечно, среднее по значению число будет храниться в элементе arr[1] writeln(arr[1]); end. На случай, если в учебнике просят среднее арифметическое, понятно, что нужно просто вывести ( arr[0] + arr[1] + arr[2] ) / 3 Если есть какие-то вопросы, то можете написать личное сообщение
Program drawFigure; uses graph; var gD,gR:integer; procedure drawHouse(x,y:word); const wallSide=70; windowSide=20; var houseRoof:array[1..4] of pointtype; begin setFillStyle(1,10); bar(x,y-wallSide,x+wallSide,y); rectangle(x,y-wallSide,x+wallSide,y); setFillStyle(1,1); bar(x+wallSide div 2-windowSide div 2,y-wallSide+wallSide div 2-windowSide div 2, x+wallSide div 2-windowSide div 2+windowSide,y-wallSide+wallSide div 2-windowSide div 2+windowSide); rectangle(x+wallSide div 2-windowSide div 2,y-wallSide+wallSide div 2-windowSide div 2, x+wallSide div 2-windowSide div 2+windowSide,y-wallSide+wallSide div 2-windowSide div 2+windowSide); setFillStyle(1,2); houseRoof[1].x:=x; houseRoof[1].y:=y-wallSide; houseRoof[2].x:=x+wallSide; houseRoof[2].y:=y-wallSide; houseRoof[3].x:=x+wallSide div 2; houseRoof[3].y:=y-wallSide-wallSide div 2; houseRoof[4].x:=x; houseRoof[4].y:=y-wallSide; fillPoly(4,houseRoof); end; procedure drawTree(x,y:word); const treeFH=90; treeFW=8; var ci:byte; branchFH,branchFW:byte; begin setFillStyle(1,6); bar(x,y-treeFH,x+treeFW,y); for ci:=1 to 6 do begin branchFH:=random(5)+1; branchFW:=random(8)+10; bar(x-branchFW,y-treeFH+ci*10,x,y-treeFH+ci*10+branchFH); bar(x+treeFW,y-treeFH+ci*10,x+treeFW+branchFW,y-treeFH+ci*10+branchFH); end; end; begin randomize; initgraph(gD,gR,''); drawHouse(100,280); drawHouse(230,270); drawHouse(430,290); drawHouse(330,180); drawTree(195,278); drawTree(325,275); drawTree(265,350); drawTree(360,290); drawTree(400,240); drawTree(580,285); drawTree(110,370); readln; closeGraph; end.
Pascal :
var arr : array[0..2] of integer; { если числа целые }
i, j, t : integer;
begin
read(arr[0], arr[1], arr[2]);
// самый простой это отсортировать массив
// в данном случае можно использовать сортировку "пузырьком"
for i := 0 to 2 do
for j := 0 to 2 do
if arr[ j ] > arr[ j + 1]
begin
t := arr[ j ];
arr[ j ] := arr[ j + 1];
arr[ j + 1 ] := t;
end;
//Конечно, среднее по значению число будет храниться в элементе arr[1]
writeln(arr[1]);
end.
На случай, если в учебнике просят среднее арифметическое, понятно, что нужно просто вывести ( arr[0] + arr[1] + arr[2] ) / 3
Если есть какие-то вопросы, то можете написать личное сообщение