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