Руслан закодировал своё имя по следующему алгоритму : сначала он выписал номера букв алфавита （а-1, б-） в своём имени друг за другом без пробелов и знаков препинания , а затем переписал цифры получившегося числа в обратном порядке. далее он пошагово заменил всецифры буквами , причём за один шаг на соответствующую букву заменялисьлибо две подряд идущие цифры （если образовывалиномер этой буквы в алфавите）, либо одна цифра （если эта цифра с последующейобразовывали, число , больше 33）. укажите номер буквы, которая встретилась в закодированном имени наибольшее число раз. если таких несколько, укажите номер стоящей раньше в алфавите. и побыстрее

Руслан
Р 18
У 21
С 19
Л 13
А 1
Н 15
18211913115
В обратном порядке:
5 11 31 9 11 28 1
Д Й Э  З Й  Ы  А

Чаще всего встречается 11 буква Й

// PascalABC.NET 3.0, сборка 1088
const
  nn=100;
type
  tA=array[1..nn] of integer;

procedure MaxElem(n:integer; var m:ta; var mx:integer);
var
  i:integer;
begin
  mx:=m[1];
  for i:=2 to n do
    if m[i]>mx then mx:=m[i]
end;

var
  a:tA;
  i,n,amax:integer;
begin
  Write('Введите количество элементов в массиве: '); Read(n);
  Randomize;
  Writeln('Элементы массива');
  for i := 1 to n do
  begin
    a[i]:=Random(101)-50;
    Write(a[i],' ')
  end;
  Writeln;
  MaxElem(n,a,amax);
  Writeln('Максимальный элемент равен ',amax);
end.

Тестовое решение:
Введите количество элементов в массиве: 15
Элементы массива
-8 41 7 -40 -1 1 -18 5 -28 26 50 13 -42 39 -43
Максимальный элемент равен 50

Program z1;  Var i,n,a,b,c:integer;      m: array [1..1000] of integer;Begin  write('Введите кол-во чисел - ');  readln(n);   randomize;   a:=0;   b:=0;   c:=0;  for i:=1 to n do  begin    m[i]:=random(100)-50;    write (m[i],' ');  end;    for i:=1 to n do    if (m[i]=0) then a:=a+1;      for i:=1 to n do    if (m[i]>0) then b:=b+1;      for i:=1 to n do    if (m[i]<0) then c:=c+1;  writeln;  writeln ('Кол-во нулей - ',a);  writeln ('Кол-во положительных чисел - ',b);  writeln ('Кол-во отрицательных чисел - ',c);End.