var n : integer; a : array[1..20] of integer; // 長さ 20 の配列の宣言 Edit1.Clear; Edit1.SetFocus; end; procedure TForm1.Button2Click(Sender: TObject); // データの入力 // begin Memo1.Lines.Add(Edit1.Text); n := n + 1; // n を 1 ふやし， a[n] := StrToInt(Edit1.Text); // Edit1 に入力された整数を // 配列 a[n] にしまう Edit1.Clear; Edit1.SetFocus; end; procedure TForm1.Button3Click(Sender: TObject); // 棒グラフの作成 // var i : integer; begin with PaintBox1.Canvas do begin ?? ?? 問 2: 以下の作業を，i = 1 から n まで， ?? n 回繰り返す （ for 文 または repeat 文，while 文を用いる） ?? ?? 作業： ?? i の値に応じて x 方向に位置をずらしながら， ?? a[i] に対応する高さの細長い長方形を描く ?? end;
