Решить в паскаль ввести массив из 12 вещественных чисел. найти наибольшее число из элементов с нечетными значениями и вывести на экран. ввести массив из 10 символов( букв) удалить из него элементы, равные последнему и предпоследнему символам. полученный новый массив вывести на экран

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

begin
  var a:=ReadArrReal(12).Select(x->real(x)).ToArray;
  Writeln('Тип массива ',a.GetType);
  Writeln('Максимальное нечетное: ',a.Where(x->Trunc(x).IsOdd).Max)
end.

Пример
13 10 22 31 22 6 18 5 26 3 8 24
Тип массива System.Double[]
Максимальное нечетное: 31

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

begin
  var c:=new Char[10];
  for var i:=0 to 9 do c[i]:=ReadlnChar;
  var c1:=c[9];
  var c2:=c[8];
  c:=c.Where(a->(a<>c1) and (a<>c2)).ToArray; c.Println(',')
end.

Пример
а
п
е
л
ь
с
и
н
е
ь
а,п,л,с,и,н

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

using System.Threading.Tasks;

namespace KekTus

{

   class Program

   {

       static void PrintArr(int[][] arr)

       {

           foreach (var str in arr)

           {

               foreach (var el in str)

                   Console.Write($"{el}\t");

               Console.WriteLine();

           }

       }

       static void Main(string[] args)

       {

           int M;

           int N;

           try

           {

               Console.Write("M = "); M = int.Parse(Console.ReadLine());

               Console.Write("N = "); N = int.Parse(Console.ReadLine());

           }

           catch

           {

               Console.WriteLine("Ошибка ввода");

               return;

           }

           if (N < 0 || M < 0)

           {

               Console.WriteLine("Ошбка ввода");

               return;

           }

           Console.WriteLine("M = {0}; N = {1}.", M, N);

           int[][] Arr    = new int[M][];

           var rand = new Random();

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

           {

               Arr[i] = new int[N];

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

                   Arr[i][j] = rand.Next(10,99);

           }

           Console.WriteLine("Исходный массив:");

           PrintArr(Arr);

           Console.WriteLine();

           int[][] Buffer = new int[N][];

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

               Buffer[j] = new int[M];

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

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

                   Buffer[j][i] = Arr[i][j];

           Arr = Buffer;

           Console.WriteLine("Преобразованный:");

           PrintArr(Arr);

           Console.WriteLine();

       }

   }

}

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

using System.Threading.Tasks;

namespace KekTus

{

   class Program

   {

       static void PrintArr(int[][] arr)

       {

           foreach (var str in arr)

           {

               foreach (var el in str)

                   Console.Write($"{el}\t");

               Console.WriteLine();

           }

       }

       static void Main(string[] args)

       {

           int M;

           int N;

           try

           {

               Console.Write("M = "); M = int.Parse(Console.ReadLine());

               Console.Write("N = "); N = int.Parse(Console.ReadLine());

           }

           catch

           {

               Console.WriteLine("Ошибка ввода");

               return;

           }

           if (N < 0 || M < 0)

           {

               Console.WriteLine("Ошбка ввода");

               return;

           }

           Console.WriteLine("M = {0}; N = {1}.", M, N);

           int[][] Arr    = new int[M][];

           var rand = new Random();

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

           {

               Arr[i] = new int[N];

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

                   Arr[i][j] = rand.Next(10,99);

           }

           Console.WriteLine("Исходный массив:");

           PrintArr(Arr);

           Console.WriteLine();

           int[][] Buffer = new int[N][];

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

               Buffer[j] = new int[M];

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

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

                   Buffer[j][i] = Arr[i][j];

           Arr = Buffer;

           Console.WriteLine("Преобразованный :");

           PrintArr(Arr);

           Console.WriteLine();

       }

   }

}