Перевести код с Pascal - C# (194845)
Формулировка задачи:
const
nmax=50;
var
b:array[1..nmax*2] of integer;
a,c:array[1..nmax] of integer;
i,n:integer;
begin
repeat
write('n, ne bolee ',nmax,'=');
readln(n);
until n in [1..nmax];
randomize;
writeln('Massiv B:');
for i:=1 to n*2 do
begin
b[i]:=random(10)+1;
write(b[i]:3);
if i mod 2<>0 then
c[i-i div 2]:=b[i]
else
a[i div 2]:=b[i];
end;
writeln;
writeln('Massiv C:');
for i:=1 to n do
write(c[i]:3);
writeln;
writeln('Massiv A:');
for i:=1 to n do
write(a[i]:3);
end.Решение задачи: «Перевести код с Pascal»
textual
Листинг программы
const int nmax = 50;
int[] a = new int[nmax], b = new int[nmax*2], c = new int[nmax];
int n;
do
{
Console.Write("n, ne bolee {0} =", nmax);
n = int.Parse(Console.ReadLine());
}
while(n>0&&n<nmax);
//randomize; //Не знаю даже, что это за оператор и как работает
Random r = new Random();
Console.WriteLne("Massiv B:");
for(int i = 0; i<n*2; i++)
{
b[i] = r.Next(10)+1;
Console.Write(b[i]:3);
if(i%2!=0) c[i-i/2] = b[i];
else a[i/2] = b[i];
}
Console.WriteLine("\nMassiv C:");
for(int i = 0; i<n; i++)
Console.Write("{0,3}", c[i]);
Console.WriteLine("\nMassiv A:");
for(int i = 0; i<n; i++)
Console.Write("{0,3}", a[i]);