Преобразуйте, пожалуйста, данный код 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;
- }
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д