Пишу на паскале var cp:real; i,k,sum:integer; mass:array[1..4] of integer; begin for i:=1 to 4 do begin write('mass[',i,']= '); read(mass[i]); k:=k+1; sum:=sum+mass[i]; end; cp:=sum/k; writeln('Среднее значение переменных равно ',cp); end. <span> </span>