Сови , що вних рухаються очі Повністю код , дуже дякую)

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

a)

begin
  var (a,b):=ReadReal2('Введите через пробел два числа:');
  if a>b then Writeln('Первое число больше второго')
  else
    if b>a then Writeln('Второе число больше первого')
    else Writeln('Числа равны')
end.

b)

begin
  var (a,b):=ReadReal2('Введите через пробел два числа:');
  if a<b then Writeln('Первое число меньше второго')
  else
    if b<a then Writeln('Второе число меньше первого')
    else Writeln('Числа равны')
end.

static void Main(string[] args)

       {

           int countzero = 0;

           int countplus = 0;

           int countminus = 0;

           int N;

           Console.Write("Укажите сколько чисел ввести: ");

           N = Convert.ToInt32(Console.ReadLine());

           int[] mas = new int[N];

           for (int i = 0; i < N; i++)

           {

               Console.WriteLine("Введите {0}-й элемент", i + 1);

               mas[i] = int.Parse(Console.ReadLine());

           }

           for (int i = 0; i < N; i++)

           {

               if (mas[i] == 0)

               {

                   countzero++;

               }

               else if(mas[i] < 0)

               {

                   countminus++;

               }

               else if(mas[i] > 0)

               {

                   countplus++;

               }

           }

           Console.WriteLine();

           Console.WriteLine("Количество положительных элементов = " + countplus);

           Console.WriteLine("Количество отрицательных элементов = " + countminus);

           Console.WriteLine("Количество нулевых элементов = " + countzero);

           Console.ReadKey();

       }

   }

}

Объяснение: