Задача с массивом.

[Sladkijj]

var
a : array[1..100] of byte;
i,n,k : byte;
sum : integer;
begin
write('input razmernostx n [2..100] : '); readln(n); randomize;
writeln('massive:'); sum:=0;
for i:=1 to n do begin
a[i]:=random(99);
if a[i]<21 then sum:=sum+a[i];
write(a[i]:4);
end;
writeln; writeln('Summa ne prew 20 = ',sum);
write('wwedite nomer el-ta dlq udaleniq k [1..',n,'] : '); readln(k);
dec(n);
for i:=k to n do a[i]:=a[i+1];
writeln('massive posle udaleniq ',k,' el-ta:');
k:=1;
for i:=1 to n do begin
if a[k]>=a[i] then k:=i;
write(a[i]:4);
end; writeln;
writeln('poslednij min el-t = ',a[k],' stoit na ',k,' meste.');
a[n+1]:=a[1]; a[1]:=a[k]; a[k]:=a[n+1];
writeln('massive posle perestanowki ',k,' i 1 mest el-tov:');
for i:=1 to n do write(a[i]:4); writeln;
readln;
end.

Как сделать так, чтобы это всё заработало в окне Form1 (и сколько нужно эдитов, баттонов и т.п.)?

[Stilet]

unit Unit1;

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var
a : array[1..100] of byte;
i,n,k : byte;
sum : integer;

begin
Memo1.Lines.Append('input razmernostx n [2..100] : ');
n:=StrToIntDef(Edit1.Text,0);
randomize;
Memo1.Lines.Append('massive:'); sum:=0;
for i:=1 to n do begin
    a[i]:=random(99);
    if a[i]<21 then sum:=sum+a[i];
    Memo1.Lines.Append(IntToStr(a[i]));
end;
Memo1.Lines.Append('Summa ne prew 20 = '+IntToStr(sum));
Memo1.Lines.Append('wwedite nomer el-ta dlq udaleniq k [1..'+IntToStr(n)+'] : ');
k:=StrToIntDef(Edit2.Text,0);
dec(n);
for i:=k to n do a[i]:=a[i+1];
Memo1.Lines.Append('massive posle udaleniq '+IntToStr(k)+' el-ta:');
k:=1;
for i:=1 to n do begin
    if a[k]>=a[i] then k:=i;
    Memo1.Lines.Append(IntToStr(a[i]));
end; writeln;
Memo1.Lines.Append('poslednij min el-t = '+IntToStr(a[k])+' stoit na '+IntToStr(k)+' meste.');
a[n+1]:=a[1]; a[1]:=a[k]; a[k]:=a[n+1];
Memo1.Lines.Append('massive posle perestanowki '+IntToStr(k)+' i 1 mest el-tov:');
for i:=1 to n do Memo1.Lines.Append(a[i]);
end;

end.

Вопросы есть?

P.S. Не запускал.

[Sladkijj]

Сообщение от Stilet

unit Unit1;

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var
a : array[1..100] of byte;
i,n,k : byte;
sum : integer;

begin
Memo1.Lines.Append('input razmernostx n [2..100] : ');
n:=StrToIntDef(Edit1.Text,0);
randomize;
Memo1.Lines.Append('massive:'); sum:=0;
for i:=1 to n do begin
    a[i]:=random(99);
    if a[i]<21 then sum:=sum+a[i];
    Memo1.Lines.Append(IntToStr(a[i]));
end;
Memo1.Lines.Append('Summa ne prew 20 = '+IntToStr(sum));
Memo1.Lines.Append('wwedite nomer el-ta dlq udaleniq k [1..'+IntToStr(n)+'] : ');
k:=StrToIntDef(Edit2.Text,0);
dec(n);
for i:=k to n do a[i]:=a[i+1];
Memo1.Lines.Append('massive posle udaleniq '+IntToStr(k)+' el-ta:');
k:=1;
for i:=1 to n do begin
    if a[k]>=a[i] then k:=i;
    Memo1.Lines.Append(IntToStr(a[i]));
end; writeln;
Memo1.Lines.Append('poslednij min el-t = '+IntToStr(a[k])+' stoit na '+IntToStr(k)+' meste.');
a[n+1]:=a[1]; a[1]:=a[k]; a[k]:=a[n+1];
Memo1.Lines.Append('massive posle perestanowki '+IntToStr(k)+' i 1 mest el-tov:');
for i:=1 to n do Memo1.Lines.Append(a[i]);
end;

end.

Вопросы есть?

P.S. Не запускал.

Вот на последнюю строчку ругается Делфи: for i:=1 to n do Memo1.Lines.Append(a[i]);

P.S. Программка должна без кнопок работать?

[Stilet]

Вот на последнюю строчку ругается Делфи

Приведи значение к строке через IntToStr. И включи моск.