Verified answer

Відповідь:

procedure TForm1.Button1Click(Sender: TObject);

var a: array [] of real;

i,n: integer;

max,min: real;

begin

n:= Memo1.Lines.Count;

for i:=0 to n-1 do

a[i]:= StrToFloat(Memo1.Lines[i]);

max:= a[0];

min:= a[0];

for i:= 1 to n-1 do

if a[i]>max then max:= a[i];

else if a[i]<min then min:= a[i];

Edit1.Text:= FloatToStr(max);

Edit2.Text:= FloatToStr(min);

end;

Пояснення: