Перевести с Паскаля на Си шарп

@GULNURA · Регистрация: 16.02.2010

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

Pascal

procedure sortvib1; 
{алгоритм сортировки с выбором максимального элемента} 
var i, m, k1: integer; 
begin 
for k1:=n downto 2 do {количество элементов для поиска max} 
begin 
m:=1; {m - место max} 
for i:=2 to k1 do if a[i]>a[m] then m:=i; 
{меняем местами элементы с номером m и номером} 
obm(a[m],a[k1]); 
end 
end;

HELP

@Mikant · 17.02.2010, 00:34

C#

        public void Sort(int[] a) {
            for (int k1 = a.Length - 1; k1 >= 0; k1--) {
                int m = 1;
                for (int i = 0; i <= k1; i++)
                    if (a[i] > a[m])
                        m = i;
                int buf = a[m];
                a[m] = a[k1];
                a[k1] = a[m];
            }
        }

тут только массив как параметр передается

	17.02.2010, 00:34

Перевести с Паскаля на Си шарп

Решение