Определить минимальную и близкую к средней температуру

Категория: Delphi/Pascal
2011-08-28 22:52:11

Пусть в массиве содержатся результаты измерений температуры воздуха, которые проводились ежедневно в течение декабря месяца. Требуется определить:минимальную температуру второй декады декабря, день, когда температура была ближе всего к средней температуре в декабре.

code: #delphi
  1. var T:array [1..31] of float;
  2. procedure Taking(var minimum:float; var day:byte);
  3. var i:byte;
  4.      avg,diff:float;
  5. begin
  6.   avg:=0;
  7.   minimum:=T[16];
  8.   day:=1;
  9.   for i:=1 to 31 do
  10.   begin
  11.     avg:=avg+T[i];
  12.     if (i>16) and (T[i]<minimum) then
  13.       minimum:=T[i];
  14.   end;
  15.   avg:=avg/31;
  16.   diff:=abs(avg-T[1]);
  17.   if (abs(diff)>=0.000001) then
  18.     for i:=2 to 31 do
  19.       if (abs(avg-T[i])<diff) then
  20.       begin
  21.         diff:=abs(avg-T[i]);
  22.         day:=i;
  23.       end;
  24. end;
Поделиться:

Похожие статьи:

теги: одномерный массив, массив, студенты