Турбо Паскаль : подсчитать среднемесячную зарплату сотрудника предприятия

[ARAGON]

задача на массив : подсчитать среднемесячную зарплату сотрудника предприятия

[Google2010]

s:=0;
for i:=1 to 12 do
s:=s+a[i];
s:=s/12;

[ARAGON]

спасибо ))))

[ARAGON]

напиши плиз полный синтаксис

[lanus]

Вот держи

program mas;
var
s,i: integer;
m:read;
a:array [1..12] of integer; 
begin
s:=0;
for i:=1 to 12 do
begin
readln(a[i]);
s:=s+a[i];
end;
m:=s/12;
writeln('среднемесячная зарплата = ',m);
readln
end.

давно на паскале не писал , но по идеи должно все работать

[Serebro]

Сообщение от lanus

Вот держи

program mas;
var
s,i: integer;
m:read;
a:array [1..31] of integer; 
begin
s:=0;
for i:=1 to 31 do
begin
readln(a[i]);
s:=s+a[i];
end;
m:=s/31;
writeln('среднемесячная зарплата = ',m);
readln
end.

давно на паскале не писал , но по идеи должно все работать

В году только 12 месяцев!

[lanus]

Исправил

[ARAGON]

спасибо_))))