Преобразуйте, пожалуйста, данный код PascalABC.NET в код С# - C#

Узнай цену своей работы

Формулировка задачи:

Листинг программы
  1. Program z1;
  2. const
  3. Nmax=50;
  4. type
  5. massiv=array[1..Nmax] of integer;
  6. var
  7. mas:massiv;
  8. n:integer;
  9. procedure vvod(kol:integer; var mas:massiv);
  10. var
  11. i:integer;
  12. begin
  13. for i:=1 to kol do
  14. begin
  15. writeln('Ведите ',i,' - й элемент массива');
  16. readln(mas[i]);
  17. end;
  18. end;
  19. procedure vyvod(kol: integer; mas: massiv);
  20. var
  21. i: integer;
  22. begin
  23. for i := 1 to kol do
  24. begin
  25. Write(mas[i]:6);
  26. end;
  27. Writeln;
  28. end;
  29. procedure obmen(var a, b: integer);
  30. var x: integer;
  31. begin
  32. x := a; a := b; b := x;
  33. end;
  34. procedure Sort_vybor(kol:integer; var mas:massiv);
  35. var i,j:integer;
  36. max, nom_max:integer;
  37. begin
  38. for i:=1 to kol-1 do
  39. begin
  40. nom_max:=i; max:=mas[i];
  41. for j:=i+1 to kol do
  42. if (mas[j]>max) then
  43. begin
  44. nom_max:=j; max:=mas[j];
  45. end;
  46. obmen(mas[i], mas[nom_max]);
  47. end;
  48. end;
  49. begin
  50. writeln('Введите количество вырубленных деревьев');
  51. readln(n);
  52. vvod(n, mas);
  53. writeln('Содержимое исходного массива:');
  54. vyvod(n, mas);
  55. Sort_vybor(n,mas);
  56. writeln('Содержимое упорядоченного массива:');
  57. vyvod(n, mas);
  58. end.

Решение задачи: «Преобразуйте, пожалуйста, данный код PascalABC.NET в код С#»

textual
Листинг программы
  1. static void PascalTranslation2_Change<T>(ref T a, ref T b)
  2. {
  3.     T x = a;
  4.     a = b;
  5.     b = x;
  6. }

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы