Тема: РАБОТА С STL Задание: Задана строка. Напечатать все согласные буквы в алфавитном порядке, которые встретились в строке больше двух раз.

Тема: ОБРАБОТКА ИСКЛЮЧИТЕЛЬНЫХ СИТУАЦИЙ
Задание: Создать динамический массив размером 10 элементов. Преобразовать его элементы следующим образом:
- разделить каждое числу на третий элемент массива;
- умножить каждое второе число на минимальный элемент.
Результаты вывести на экран. Обработать исключительную ситуацию, если недостаточно памяти.​

Var St: string;
 z:string[10];
 x:string[2];
i,j,k,m: integer;           //новые переменные
Begin
Write('введите строку текста - St');
Readln(St);
k:=0;                       //обнуляем на всякий случай
z:='0123456789';
i:=1;
for j:=1 to length(St) do //начало
 begin;
  for m:=1 to 10 do
   if St[j]=z[m] then inc(k);
 end;
if k=0 then
begin;
 writeln('в тексте нет цифр');
 exit;
end;                              //конец
while i<=length(st)-1 do
begin
x:=copy(st,I,2);
if (x[1]=x[2]) and (pos(x[1],z)<>0) then
begin
delete(st,i,2);
insert('две',st,i);
i:=i+1;
end;
i:=i+1;
end;
writeln('преобразованная строка ', st);
End.

using System;

namespace App {

   internal class Program {

       private static void Main() {

           var a = new[,] {{1, 2, 3}, {1, 2, 3}, {1, 2, 3}};

           for (var j = 0; j <= a.GetUpperBound(1); j++) {

               if (j % 2 == 0)

                   a[0, j] = ColumnSum(j, ref a);

               else

                   a[0, j] = ColumnProduct(j, ref a);

           }

           for (var i = 0; i <= a.GetUpperBound(0); i++) {

               for (var j = 0; j <= a.GetUpperBound(1); j++)

                   Console.Write("{0} ", a[i, j]);

               Console.WriteLine();

           }

           Console.WriteLine();

           Console.ReadLine();

       }

       public static int ColumnSum(int column, ref int[,] a) {

           var sum = 0;

           for (var i = 0; i <= a.GetUpperBound(0); i++) {

               sum += a[i, column];

           }

           return sum;

       }

       public static int ColumnProduct(int column, ref int[,] a) {

           var p = 1;

           for (var i = 0; i <= a.GetUpperBound(0); i++) {

               p *= a[i, column];

           }

           return p;

       }

   }

}