Я напишу на паскале;
program srednie_v_masive; var a:array[1..3] of longint; s,k,i,n:longint;begin readln(n); while not eof do begin for i:=1 to n do begin read(a[i]); s:=s+a[i]; end; writeln(s/n); end;end.
n - ето количество чисел в масиве,а - ето масив значений,s - cума чисел,
и выводим среднее в масиве значение ето сума поделеная на их количесво,тобеш n