ЗАПОВНІТЬ ПРОПУЩЕНІ ФРАГМЕНТИ: procedure TForm1.Button1Click(Sender: TObject); var: array [] of real; i,n: integer; max,min: ; begin n: Memo1.Lines.Count; for i:=0 to n-1 do a[i]: StrToFloat( ; max:=_ D); min:__________; for i:=_ if a[i]>_ if a[i]< Edit1. :-FloatToStr(______); Edit2. to n-1 do then then min:=______; else (min);​

Відповідь:

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;

Пояснення: