Подпрограммы Опции

[-=BR@BUS=-]

Дан масив t содержащий 365 вещественных чисел. По массиву t, где указана температура каждого дня, определить название самого холодного месяца (с наименьшей среднемесячной температурой) и самого жаркого (с наибольшей среднемесячной температурой). Вычисление среднемесячной температуры организовать в подпрограмме.

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.

вот часть её, помогите доделать... а то я встал

[Malice]

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

	sr:=(sum/2);

Вызывается функция тоже неправильно:

W1:=sr_tem(A[1],A[31],A);

Нужно передавать не значения температур, а просто 1 и 31.
Заведи константный массив, где будут храниться номер дня в году соответствующий 1-му числу каждого месяца и колво дней в месяце - удобней бедет.
Дальше только поиск мин и макс в цикле от 1 до 12 и все.

Сообщение отредактировано: Malice - 19.12.2006 17:07

[-=BR@BUS=-]

А как организовать поиск min и max сразу для 12 значений?