PASCAL ABC
БЕЗ RANDOM И ВСЯКИХ CRT
1) Вводится строка, состоящая только из строчных латинских букв. Найти какая буква в строке встречается максимальное количество раз.
Формат ввода
Строка s
Формат вывода
Буква и количество раз, которое эта буква встречается в строке.
Примеры: kfjgnsljgnljgvnjabgahsgkfbjhfdbshjbfajhbcbaue выводит j - 7
2) Напишите программу, которая находит в массиве максимальную последовательность убывающих элементов
Формат ввода
Первая строка содержит размер массива N. Во второй строке через пробел задаются N чисел – элементы массива. Гарантируется, что 1 < N ≤ 10000. Элементы массива - целые числа, не превышающие по модулю 1000
Формат вывода
Одно число: максимальное количество убывающих элементов
Пример: 5 и 1 2 3 4 5 вывод 0
5 и 1 3 2 1 4 вывод 3

var a: array[1..255] of integer;    b: array[1..10000] of integer;    s: string;    i,mx,tek,ind,n: integer;begin// задание 1  write('строка: ');  readln(s);  mx:=0; ind:=0;  for i:=1 to 255 do a[i]:=0;  for i:=1 to length(s) do   if s[i] in ['a'..'z'] then inc(a[ord(s[i])]);  for i:=ord('a') to ord('z') do if a[i]>mx then  begin    mx:=a[i];    ind:=i;  end;    writeln('наиболее часто встречается буква: ',chr(ind),' - ',mx);// задание 2  write('N = ');  readln(n);  mx:=0; tek:=0;  read(b[1]);  for i:=2 to n do  begin    read(b[i]);    if b[i]<=b[i-1] then inc(tek)    else     begin      if tek>mx then mx:=tek;      tek:=0;    end;    end;  if mx>0 then writeln(mx+1)  else writeln(0);end.

Var C:array['a'..'z'] of integer;    S:string;    i,Max:integer;    j:char;BeginRead(S);For i:= 1 to Length(S) do    C[S[i]]:=C[S[i]]+1;Max:=C['a'];For j:= 'b' to 'z' do    if Max<C[j] then Max:=C[j];WriteLn(Max)End.Var   A:array[1..10000] of integer;   i,k,Max:integer;BeginReadLn(i);For i:= 1 to i do    Read(A[i]);k:=0;Max:=0;For i:= 1 to i-1 do    if A[i]>A[i+1] then k:=k+1    else if k>Max then            Begin            Max:=k;            k:=0;            End;if Max=0 then WriteLn(0)else WriteLn(Max+1)End.