Var i,sum:integer; cp:real; mass:array[1..6] of integer; begin for i:=1 to 6 do begin write('mass[',i,']='); read(mass[i]); sum:=sum+mass[i]; end; writeln; for i:=1 to 6 do writeln('mass[',i,']=',mass[i]); writeln; writeln('Среднее арифметическое элементов массива равно ',sum/6:0:4); end.<span> </span>