Помогите перевести код из Pascal в C#. Работа с массивом.
Формулировка задачи:
Переведите, пожалуйста, из паскаля в си шарп
program qq; Uses crt; Const n=20; Var x:array [1..n] of integer; i,n,max:integer; begin clrscr; randomize; Writeln (' Vvedite kol - vo elementov '); Readln (n); Writeln (' polycheny chisla '); for i:=1 to n do begin x[i]:=random(41)-20; write (x[i],' '); end; writeln; Max:=x[1]; for i:=1 to n do if x[i]>=max then max:=x[i]; Writeln (' Maxim element = ',max); Writeln; Writeln (' OTVET '); for i:=1 to n do if abs(x[i])>max then x[i]:=0; for i:=1 to n do write (x[i],' '); Readln end.
Решение задачи: «Помогите перевести код из Pascal в C#. Работа с массивом.»
textual
Листинг программы
Console.WriteLine("count: "); var s = Console.ReadLine(); var n = int.Parse(s); var rnd = new Random(); var a = new int[n]; for (int i = 0; i < n; i++) a[i] = rnd.Next(20, 40); var max = a.Max(); s = string.Join(" ", a); Console.WriteLine("a: {0}", a); Console.WriteLine("max: {0}", max);
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д