Вопрос школьника по предмету Информатика
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.
Похожие вопросы от пользователей
4. Если бы вы стали директором школы, какие изменения вы бы произвели в ней?
Get ready to speak about a visit to the cinema. Mention:
1) what cinema it was
2) who was with you
3) what film you watched
4) where were your seats
5) if you had any refreshments
6) if you enjoyed the visit and why (or why not)
Перевод не нужен, нужны ответы на вопросы
В каком порядке девочки подходили к корзине?
А) Ала, Селина, Беата
Б) Селина, Беата, Ала
В) Беата, Ала, Селина
Г) Беата, Селина, Ала
Д) Селина, Ала, Беата
1)смену дня и ночи
2)сильный ветер
3) половодье
4)вечерние сумерки