Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > пусть даны целые числа a1..a20 преобразовать эту п

Автор: satira 3.4.2016, 19:58

Ребята, написала программу, но ошибку не могу найти!
Помогите пожалуйста!

Код


procedure TForm1.Button1Click(Sender: TObject);
var a:array[1..20] of integer;
     t,i, n:integer;
     st: string;
begin
 n:=20;
for i:=1 to N-10 do
 if a[i]<a[10+i] then
  begin

   t:=a[i];
   a[i]:=a[10+i];
   a[10+i]:= t;
  end;
  for i := 1 to n do begin
st := st + IntToStr(a[i])+#30;
    end;
    Memo2.Lines.Add(st);

  end;
end.

Автор: mikeyess 4.4.2016, 08:41

во первых: до "st := st + IntToStr(a[i])+#30;" нужно st:='';
во вторых: не "+#30;", а "+#32;" если хотите добавить пробел между числами.
в третьих: что делает программа? это не сортировка. просто сравнение первого десятка со вторым. а где сравнение чисел в первой (во второй) десятке?
с уважением, Mike

Этот ответ добавлен с нового Винграда - http://ru.vingrad.com/pust-dany-tselyye-chisla-a1a20-preobrazovat-etu-p-id57014c12ae20150c1d8b4567#findElement_E7045_5701fe8aae2015216f78b523_0