Среднемесячное вычисление температуры! Одномерный массив

[ArteMAN]

Задачка: Написать программу по вычислению среднемесячной температуры воздуха.
ну вот я сделал задачку, все работает )))) а нужно сделать эту программу через одномерный массив ( а я в нем запутался! помогите кто может

program iw9;
var
t:array[1..30] of real;
result:real;
i:integer;
Begin
result:= 0;
for i:=1 to 30 do
t[i]:=15 + Random(10);
for i:=1 to 30 do
Begin
result:= result + t[i];
writeln(t[i]);
End;
result:= result/30;
writeln('--------------------------------------');
writeln('Среднемесячная температура: ',result);
End.