Uses Crt;
Const n=365;
var A:array[1..n] of integer;
min,m,i,s:integer;
w1:real;
Function sr_tem(j,m:Integer;X:array of integer):real;
Var k,sum,i:Integer;
sr:real;
Begin
sum:=0;
k:=0;
For i:=j to m do begin
sum:=sum+X[i];
k:=k+1;
end;
sr:=(sum/2);
sr_tem:=sr;
Writeln('TEMP: ',sr);
Writeln('------------------------');
end;
Begin
ClrScr;
Randomize;
For i:=1 to n do A[i]:=Random(80)-40;
Writeln('Ianvar');
W1:=sr_tem(A[1],A[31],A);
Writeln(w1);
readln;
end.
вот часть её, помогите доделать... а то я встал