Дан одномерный массив из 10 элементов определите среднее значение…

program massiv; var i,n,max,sr,min,pozm,pozx: longint; a: array[1… 10]of longint; beginfor i: =1 to 10 doread (a[i]); for i: =1 to 10 dobeginif a[i]>max then begin max: =a[i]; pozm: =i; end; if a[i]