12,277Выяснить, есть ли в массиве строки, в которых буква A расположена справа от буквы d...

Question

12,277
Выяснить, есть ли в массиве строки, в которых буква A расположена справа от буквы d (известно, что буква d в каждой строке единственная).

Comments

Могу в VBA Excel, если устроит.

---

Паскаль АБС

---

Если никто не напишет, завтра прикреплю пример в VBA, там команды почти соответствуют Паскалю, сами конвертируете.

---

ок

---

сколько строк может быть в массиве?

Answer 1

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)0) do
  begin
  delete(s,pos('a',s),1); j:=j-1;
  end;
 if pos('a',s)>j then k:=k+1;
 end;
if k=0 then writeln('таких строк нет') else writeln('такие строки есть');
end.

Answer 2

Отлично. Можно сравнить с VBA Excel

---

Скачать вложение Excel (XLS)