PASCAL ABCБЕЗ RANDOM И ВСЯКИХ CRT1) Вводится строка, состоящая только из строчных латинских букв. Найти какая буква в строке встречается максимальное количество раз. Формат ввода Строка 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

Вопрос школьника по предмету Информатика

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.