Преобразуйте, пожалуйста, данный код 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;
}

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


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

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

8   голосов , оценка 4 из 5
Похожие ответы