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