Как перевести код из 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("Поровну");
            }

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

9   голосов , оценка 3.889 из 5
Похожие ответы