Question

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

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)<j) and (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

830c8881560e9569f4d6cf10602e214d.xls