Вставити пропущені символи (команди) і записати код програми у зошит

procedure TForm1.Button1Click(Sender: TObject)
var a: array [1..___ ] of real; i: integer; min: real;

for i := ___ to 15 do a[i] := StrToFloat(Memo1.Lines[i-1]);
:= a[1];
for i := 2 to 15 do If a[i] < Then min := a[i];

Label1. := FloatToStr (min) + ' — найменше значення';
end

Визначити найменше значення 15 елементів табличної величини

Вставити пропущені символи (команди) і записати код програми у
зошит

procedure TForm1.Button1Click(Sender: TObject)
var a: array [1..___ ] of real; i: integer; min: real;

for i := ___ to 15 do a[i] := StrToFloat(Memo1.Lines[i-1]);
:= a[1];
for i := 2 to 15 do If a[i] < Then min := a[i];

Label1. := FloatToStr (min) + ' — найменше значення';
end

Муся000    3   25.04.2021 12:41    1