Перевести с Pascal на С# - C#

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

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

Помогите перевести код на C#
Var A:array[1..100] of integer;
    i,n,k,max:byte;
Begin
    write('Введите n: ');readln(n);
    For i:=1 to n do
    Begin
      write('A[',i,'] = ');
      readln(A[i]);
    End;
    max:=0;k:=0;
    For i:=1 to n do
    Begin
      if A[i] mod 2 = 1 then inc(k)
      else
      Begin
        if k>max then max:=k;
        k:=0;
      end;
    End;
    if k>max then max:=k;
    if max>0 then writeln('Max последовательность из нечетных элементов = ',max)
     else writeln('Нет последовательности нечетных элементов');
End.

Решение задачи: «Перевести с Pascal на С#»

textual
Листинг программы
using System;
 
class Program
{
    static void Main()
    {
        byte n, k, max;
        Console.Write("Введите n: ");
        n = byte.Parse(Console.ReadLine());
        int[] A = new int[n];
        for (int i = 0; i < n; i++)
            A[i] = int.Parse(Console.ReadLine());
        max = k = 0;
        for (int i = 0; i < A.Length; i++)
            if (A[i] % 2 == 1)
                k++;
            else if (k > max)
            {
                max = k;
                k = 0;
            }
        if (k > max) max = k;
        if (max > 0) Console.WriteLine("Max последовательность из нечетных элементов = {0}", max);
        else Console.WriteLine("Нет последовательности нечетных элементов.");
        Console.ReadKey();
    }
}

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


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

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

15   голосов , оценка 3.933 из 5