В массивах хранятся заработные платы работников предприятия посчитать среднюю заработную плату учитывая что работник работать
Program gt; var n,i:integer; a,s:real; begin read(n); for i:=1 to n do begin read(a); s:=s+a; end; s:=s/n; writeln(s); end. n-кол-во работников после этого зарплата каждого работника вводится внутри цикла for