Как перевести код из Pascal в С# - C#
Формулировка задачи:
uses crt; const nmax=100; var a:array[1..nmax] of integer; n,i,pp,pn,po,mx:integer; s:string; begin clrscr; randomize; repeat write('Размер массива до ',nmax,' n='); readln(n); until n in [1..nmax]; writeln('Исходный массив:'); pp:=0;pn:=0;po:=0; for i:=1 to n do begin a[i]:=-3+random(7); write(a[i]:4); if a[i]<0 then po:=po+1 else if a[i]=0 then pn:=pn+1 else pp:=pp+1; end; writeln; writeln('Процент положительных=',100*pp/n:0:2); writeln('Процент нулевых=',100*pn/n:0:2); writeln('Процент отрицательных=',100*po/n:0:2); if pp>pn then begin mx:=pp; s:='Положительных элементов больше'; end else begin mx:=pn; s:='Нулевых элементов больше' end; if po>mx then s:=('Отрицательных элементов больше'); if (pp=pn)and(pp=po) then s:='Всех элементов поровну'; write(s); readln end.
Решение задачи: «Как перевести код из Pascal в С#»
textual
Листинг программы
Console.Write("Введите размер массива "); int n = Convert.ToInt32(Console.ReadLine()); int[] array = new int[n]; int kp = 0; int ko = 0; int kz = 0; Random r = new Random(); Console.WriteLine("Исходный массив"); for (int i = 0; i < array.Length; i++) { array[i] = r.Next(-10, 10); Console.WriteLine(array[i]); } for(int i=0; i<array.Length;i++) { if(array[i]>0) { kp++; } else if (array[i] < 0) { ko++; } else { kz++; } } Console.WriteLine("Процент положительных :{0}",100*kp/n); Console.WriteLine("Процент отрицательных :{0}", 100*ko/n); Console.WriteLine("Процент нулевых :{0}", 100*kz/n); if(kp>ko&&ko>kz) { Console.WriteLine("Положительных больше"); } else if(ko>kp&&kp>kz) { Console.WriteLine("Отрицательных больше"); } else if (kz>kp&&kp>ko) { Console.WriteLine("Нулевых больше"); } else { Console.WriteLine("Поровну"); }
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д