12,277Выяснить, есть ли в массиве строки, в которых буква A расположена справа от буквы d (известно, что буква d в каждой строке единственная).
12,277
Выяснить, есть ли в массиве строки, в которых буква A расположена справа от буквы d (известно, что буква d в каждой строке единственная).
Гость
Ответ(ы) на вопрос:
Гость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)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
Не нашли ответ?
Похожие вопросы