В каких из этих строк допущены ошибки? запишите их верный вариант

182

389

Посмотреть ответы 1

Ответы на вопрос:

irna200

Информатика

4,4(38 оценок)

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.