Перевод кода PascalABC.NET в код С# - C#
Формулировка задачи:
Program z1;
const
Nmax=50;
type
massiv=array[1..Nmax] of integer;
var
K, A, B, i, min, max:integer;
mas:massiv;
begin
//Ввод размера массива и отрезка для случайных чисел
Writeln('Введите размер массива');
Readln(K);
Writeln('Введите начало отрезка');
Readln(A);
Writeln('Введите конец отрезка');
Readln(B);
//Заполнение массива случайными числами
for i:=1 to K do
begin
mas[i]:=Random(b-a+1)+a;
end;
//Вывод исходного массива по строкам
Writeln('Содержимое исходного массива в строку: ');
for i:=1 to K do
begin
Write(mas[i]:6);//:6 - интервал между цифрами 6
end;
Writeln;
//Вывод исходного массива в столбец
Writeln('Содержимое исходного массива в столбец: ');
for i:=1 to K do
begin
Writeln(mas[i]:6);
end;
min:=mas[1];
max:=mas[1];
for i:=2 to K do
begin
if mas[i]>max
then
max:=mas[i];
if mas[i]<min
then
min:=mas[i];
end;
for i:=1 to K do
begin
if mas[i] mod 2=0
then
mas[i]:=min
else
mas[i]:=max;
end;
Writeln('Содержимое исходного массива в столбец: ');
for i:=1 to K do
begin
Writeln(mas[i]:6);
end;
end.Решение задачи: «Перевод кода PascalABC.NET в код С#»
textual
Листинг программы
static void PascalTranslation1(string[] args)
{
Random r = new Random();
//Ввод размера массива и отрезка для случайных чисел
Console.Write("Введите размер массива: ");
int len = Int32.Parse(Console.ReadLine());
int[] mas = new int[len];
Console.Write("Введите начало отрезка: ");
int a = Int32.Parse(Console.ReadLine());
Console.Write("Введите конец отрезка: ");
int b = Int32.Parse(Console.ReadLine());
//Заполнение массива случайными числами
for (int i = 0; i < len; i++)
mas[i] = r.Next(b - a + 1) + a;
//Вывод исходного массива по строкам
Console.WriteLine("Содержимое исходного массива в строку: ");
foreach (var x in mas)
Console.Write("{0}, ", x);
Console.WriteLine();
//Вывод исходного массива в столбец
Console.WriteLine("Содержимое исходного массива в столбец: ");
foreach (var x in mas)
Console.WriteLine(x);
int min = mas[0];
int max = mas[0];
for (int i = 1; i < len; i++)
if (mas[i] > max)
max = mas[i];
else if (mas[i] < min)
min = mas[i];
for (int i = 0; i < len; i++)
if (mas[i] % 2 == 0)
mas[i] = min;
else
mas[i] = max;
Console.WriteLine("Содержимое исходного массива в столбец: ");
foreach(var x in mas)
Console.WriteLine(x);
}