Знаходження мінімального та максимального значення (Lazarus)

Знаходження мінімального та максимального значення (Lazarus)

Створіть одновимірний список із значеннями температури щодня за тиждень (тобто 7 записів). А потім визначте максимальну, мінімальну та середню температуру за тиждень. Збережіть проєкт під назвою Температура.

procedure TForm1.Button1Click(Sender: TObject);

var a: array[1..7] of real;

    i: integer;

    min, max, s, c: real;

begin

  for i:=1 to 7 do a[i]:=StrToFloat(Memo1.Lines[i-1]);

  s:=0;

  max:=a[1];

  min:=a[1];

  for i:=1 to 7 do

  s:=s+a[i];

if a[i]>max then

begin

  max:=a[i];

  end

else

if a[i]<min then

begin

   min:=a[i];

   end;

c:=s/7;

Edit1.Text:=FloatToStr(c);

Edit2.Text:=FloatToStr(min);

Edit3.Text:=FloatToStr(max);

end;

end.