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