Составить программу которая запрашивает 10 чисел и расставляет их порядке возрастания

1

Ответы и объяснения

2010-12-29T18:05:32+03:00
Procedure TForm1.Button1Click(Sender: TObject); var a:Array of integer; i:integer; n:integer; t:integer; k:integer; l1,l2,l:TdateTime; begin Memo1.Clear; n:=StrToInt(Edit1.Text); // ввод размера массива SetLength(a,n); //создает массив с нужным кол-вом строк for i:=0 to n-1 do a[i]:=random(n); if CheckBox1.Checked then for i:=0 to n-1 do Memo1.Lines.Add(IntToStr(a[i])); l1:=time; //Сортировка for k:=1 to n-1 do for i:=0 to n-2 do if a[i]>a[i+1] then begin t:=a[i]; //меняет местами смежные ячейки если это необходимо a[i]:=a[i+1]; a[i+1]:=t; end; l2:=Time; l:=(l2-l1)*24*60*60; edit2.Text:=FloatToStr(l); // вывод значения времени Memo2.Clear; //очищает второе окно перед выводом if CheckBox1.Checked then for i:=0 to n-1 do Memo2.Lines.Add(IntToStr(a[i])); //вводит во второе окно отсортированные данные end;