12,277Выяснить, есть ли в массиве строчки, в которых буковка A размещена

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

Паскаль АБС

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

ок

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

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

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.