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

В программе мы сначала проходим по массиву строк, рассматривая каждую строку, а затем проходим по каждой строке и ищем в ней сочетание 'da'.

Если строка удовлетворяет условию - заносим ее в переменную words.

var

a: array[1 ... 2,1 ... 2] of string;

word_, part, words:string;

begin

a[1,1]:='mother';

a[1,2]:='coda';

a[2,1]:='father';

a[2,2]:='soda';

for i:integer: = 1 to 2 do

begin

for j:integer: = 1 to 2 do

begin

write (a[i, j]:10);

word_:=a[i, j];

for m:integer: = 1 to length (word_) - 1 do

if copy (word_, m, 2) = 'da' then

words:=words+a[i, j]+' ';

end;

writeln ();

end;

writeln ('Слова, в которых буква а расположена справа от буквы d: ', words);

end.