Перевести на Делфи!

@Temoxa · Регистрация: 19.03.2010

Author24 — интернет-сервис помощи студентам

Выручите ребята надо вот этот код C#

C#

for (int j = right; j > 0; j--)
                {
                    if (mass[j - 1] > mass[j])
                    {
                        int t = mass[j - 1];
                        mass[j - 1] = mass[j];
                        mass[j] = t;
                        last = j;
                    }
                }

в Делфи переделать!

@unick12345 · 16.05.2011, 12:55

Delphi

var j,t:integer;
for j = right downto 0 do
                if (mass[j-1] > mass[j]) then
                    begin
                        t := mass[j-1];
                        mass[j-1] := mass[j];
                        mass[j] := t;
                        last := j;
                    end;

@MsGuns · 16.05.2011, 12:58

Delphi

var
  t integer;
 
  ...
  for j := right downto 0 do
     if mass[j-1]>mass[j] then
      begin
        t := mass[j-1];
        mass[j-1] := mass[j]     ;
        mass[j] := t;
        last := j;
     end;

Добавлено через 1 минуту
j забыл объявить

Добавлено через 26 секунд
О, опоздал

	16.05.2011, 12:58

Перевести на Делфи!

Решение