Конвертировать с Pascal на C# - C# (182859)

Узнай цену своей работы

Формулировка задачи:

Собственно сам код:
const DMAX=100;
var
N: integer;
D: integer;
K: integer;
r: integer;
c: array[1..DMAX-1] of integer;
i: integer;
imax: integer;
begin
for i:=1 to DMAX-1 do c[i]:=0;
      readln(N);
for i:=1 to N do begin
      readln(D, K);
      r := K mod D;
      if r>0 then c[r]:=c[r]+1;
end;
imax:=1;
for i:=2 to DMAX-1 do begin
      if c[i]>=c[imax] then imax:=i;
end;
if c[imax]=0 then imax:=0;
writeln(imax);
end.
Заранее спасибо)

Решение задачи: «Конвертировать с Pascal на C#»

textual
Листинг программы
using System;
class Convert
{
    const int DMAX = 100;
    static void Main()
    {
        int N, D, K, r,  i, imax;
        int[] c = new int[DMAX-1];
        string[] s;
        for ( i = 0; i < DMAX - 1; i++) c[i] = 0;
        N = Int32.Parse(Console.ReadLine());
        for (i = 0; i < N; i++) 
        {
            s = Console.ReadLine().Split(null);
            D = Int32.Parse(s[0]);
            K = Int32.Parse(s[1]);
            r = K / D;
            if (r > 0) c[r] = c[r] + 1;
        }
        imax = 1;
        for (i = 2; i < DMAX - 1; i++) if (c[i] >= c[imax]) imax = i;
        if (c[imax] == 0) imax = 0;
        Console.WriteLine(imax);
    }
}

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


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

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

10   голосов , оценка 3.8 из 5