Помогите перевести код из 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);

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

10 голосов , оценка 3.9 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы