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

const n=20;var i,f,k,j:integer;s:string;a:array[1..n] of string;begink:=0; j:=0;writeln('введите количество строк в массиве');readln(f);writeln('заполните массив');for i:=1 to f doreadln(a[i]);for i:=1 to f dobegin 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.

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