12,277Выяснить, есть ли в массиве строчки, в которых буковка A размещена
12,277
Выяснить, есть ли в массиве строчки, в которых буковка A размещена справа от буковкы d (знаменито, что буква d в каждой строке единственная).
Арсений Гейль
Могу в VBA Excel, если устроит.
Илюха Воткаленко
Паскаль АБС
Есения
Если никто не напишет, завтра прикреплю пример в VBA, там команды практически соответствуют Паскалю, сами конвертируете.
Виталя
ок
Чубрунова
Арина
сколько строк может быть в массиве?
2 ответа
Ruslan Bylickij
Const n=20;
var i,f,k,j:integer;
s:string;
a:array[1..n] of string;
begin
k:=0; j:=0;
writeln('введите количество строк в массиве');
readln(f);writeln('заполните массив');
for i:=1 to f do
readln(a[i]);
for i:=1 to f do
begin
j:=pos('d',a[i]);
s:=a[i];
while (pos('a',s)lt;j) and (pos('a',s)lt;gt;0) do
begin
delete(s,pos('a',s),1); j:=j-1;
end;
if pos('a',s)gt;j then k:=k+1;
end;
if k=0 then writeln('таких строк нет') else writeln('такие строчки есть');
end.
var i,f,k,j:integer;
s:string;
a:array[1..n] of string;
begin
k:=0; j:=0;
writeln('введите количество строк в массиве');
readln(f);writeln('заполните массив');
for i:=1 to f do
readln(a[i]);
for i:=1 to f do
begin
j:=pos('d',a[i]);
s:=a[i];
while (pos('a',s)lt;j) and (pos('a',s)lt;gt;0) do
begin
delete(s,pos('a',s),1); j:=j-1;
end;
if pos('a',s)gt;j then k:=k+1;
end;
if k=0 then writeln('таких строк нет') else writeln('такие строчки есть');
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Облако тегов