Счетчик

[Alex_sim]

Здравствуйте можно ли кого попросить перевести этот
не большой код на с sharp
буду очень признателен

var A:array[0..100] of Byte; e:Byte;
begin
for e:=0 to 100 do A[e]:=0; 
repeat ReadLn(e); A[e]:=A[e]+1 until e=0;
for e:=1 to 100 do if A[e]<>0 then WriteLn (e:5,A[e]:5);

[rmammoth]

Держи. Инициализация 0 не нужна -- по умолчанию массивы в шарпе инициализируются 0. Добавил проверки на формат значения и выход из диапазона.

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace Counter
{
class Program
{
static void Main(string[] args)
{
const byte sz = 101;
byte[] A = new byte[sz];
byte e = 0;

do
{
try
{
e = byte.Parse(Console.ReadLine());
A[e] = (byte)(A[e] + 1);
}
catch (FormatException)
{
Console.WriteLine("Wrong input!");
throw;
}
catch (IndexOutOfRangeException)
{
Console.WriteLine("Out of bounds!");
throw;
}
}
while (e != 0);

for (e = 1; e < sz; ++e)
if (A[e] != 0)
Console.WriteLine("{0,5}{1,5}", e, A[e]);
}
}
}

[rmammoth]

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace Counter
{
class Program
{
static void Main(string[] args)
{
const byte sz = 101;
byte[] A = new byte[sz];
byte e = 0;

do
{
try
{
e = byte.Parse(Console.ReadLine());
A[e] = (byte)(A[e] + 1);
}
catch (FormatException)
{
Console.WriteLine("Wrong input!");
throw;
}
catch (IndexOutOfRangeException)
{
Console.WriteLine("Out of bounds!");
throw;
}
}
while (e != 0);

for (e = 1; e < sz; ++e)
if (A[e] != 0)
Console.WriteLine("{0,5}{1,5}", e, A[e]);
}
}
}

Начальное обнуление не нужно -- шарп инициализирует массивы значением по умолчанию. Добавил проверку корректности ввода.