Перевести с 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(); } }
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д