Помогите решить задачу на Delphi7...

Пусть данные об осадках хранятся в массиве M : array [1..30] of Real
Тогда ответ будет всего в 3 строчки:

WriteLn((M[1]+M[2]+M[3]+M[4]+M[5]+M[6]+M[7]+M[8]+M[9]+M[10])/10:0:3);
WriteLn((M[11]+M[12]+M[13]+M[14]+M[15]+M[16]+M[17]+M[18]+M[19]+M[20])/10:0:3);
WriteLn((M[21]+M[22]+M[23]+M[24]+M[25]+M[26]+M[27]+M[28]+M[29]+M[30])/10:0:3);