Я думаю, что имеется в виду среднее по значению 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 Если есть какие-то вопросы, то можете написать личное сообщение
function summdel(x:integer):integer; //результат - сумма делителей х var k,sum:integer; begin sum:=0; for k := 1 to x div 2 + 1 do if x mod k = 0 then sum:= sum+k; summdel:=sum; end;
begin writeln('Введите границы a,b '); readln(a,b); maxsumm := 1; max := 1; for i := a to b do begin if summdel(i) > maxsumm then begin maxsumm:= summdel(i); max := i; end; end; writeLn('Максимальная сумма делителей - ', maxsumm, ' число - ',max) 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
Если есть какие-то вопросы, то можете написать личное сообщение