17
Аноним
Информатика
25 мая 09:39

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

строке единственная).

Ответ или решение1

В программе мы сначала проходим по массиву строк, рассматривая каждую строку, а затем проходим по каждой строке и ищем в ней сочетание '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.

0 / 10000
ВходРегистрация

Вход

или

Регистрация