Составить программу, определяющая среднюю зарплату

[DiMoNnnnnnnnn]

Составить программу, определяющая среднюю зарплату
учителей.
Помогите кто чем может))))

[DM_bite]

OMG. Как определить среднее значение?! Сумму зарплат поделить на количество учителей.

[Allen Iverson]

Ну примерно вот так например....
program sr_zarp;
uses crt;
var i,n:integer;
sr_z:real;
zarp:array[1..10000] of real;
begin
clrscr;
write ('kolvo uchiteley - ');
readln (n);
for i:=1 to n do
begin
write ('zarplata ',i,' uchitelya - ');
readln (zarp[i]);
sr_z:=sr_z+zarp[i];
end;
sr_z:=sr_z/n;
writeln;
writeln ('Srednya zarplata uchiteley ravna - ',sr_z:0:2);
readln;
end.