Преобразуйте, пожалуйста, данный код PascalABC.NET в код С# - C#
Формулировка задачи:
Program z1; const Nmax=50; type massiv=array[1..Nmax] of integer; var mas:massiv; n:integer; procedure vvod(kol:integer; var mas:massiv); var i:integer; begin for i:=1 to kol do begin writeln('Ведите ',i,' - й элемент массива'); readln(mas[i]); end; end; procedure vyvod(kol: integer; mas: massiv); var i: integer; begin for i := 1 to kol do begin Write(mas[i]:6); end; Writeln; end; procedure obmen(var a, b: integer); var x: integer; begin x := a; a := b; b := x; end; procedure Sort_vybor(kol:integer; var mas:massiv); var i,j:integer; max, nom_max:integer; begin for i:=1 to kol-1 do begin nom_max:=i; max:=mas[i]; for j:=i+1 to kol do if (mas[j]>max) then begin nom_max:=j; max:=mas[j]; end; obmen(mas[i], mas[nom_max]); end; end; begin writeln('Введите количество вырубленных деревьев'); readln(n); vvod(n, mas); writeln('Содержимое исходного массива:'); vyvod(n, mas); Sort_vybor(n,mas); writeln('Содержимое упорядоченного массива:'); vyvod(n, mas); end.
Решение задачи: «Преобразуйте, пожалуйста, данный код PascalABC.NET в код С#»
textual
Листинг программы
static void PascalTranslation2_Change<T>(ref T a, ref T b) { T x = a; a = b; b = x; }
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д