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