{$codepage UTF8} FUNCTION Promedio(lista:array of integer):single; Var i:integer; aux:single; Begin aux:=0; for i:= 0 to high(lista) do aux:=aux+lista[i]; Promedio:=aux/(high(lista)+1) End; VAR lista:array [1..10] of integer = (10,15,12,14,11,8,1,5,10,20); BEGIN Writeln('Promedio de los 5 primeros =',Promedio(lista[1..5]):5:3); Writeln('Promedio de los 5 ultimos =',Promedio(lista[6..10]):5:3) END.