VPF::пусть даны целые числа a1..a20 преобразовать эту п

satira

Дата 3.4.2016, 19:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 3.4.2016

Репутация: нет
Всего: нет

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

Код


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.

Это сообщение отредактировал(а) Poseidon - 5.4.2016, 14:09

mikeyess

Дата 4.4.2016, 08:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 0
Регистрация: 7.1.2014

Репутация: нет
Всего: нет

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

Этот ответ добавлен с нового Винграда - http://vingrad.com

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »