Ошибка времени выполнения: Индекс находился вне границ массива

Как исправить?

Program A2;

Var s:string;

i:integer;

Begin

Readln (s) ;

For i: = 1 to length (s) do

If s[i]=',' then delete (s, i, 1) ;

Writeln (s) ;

End.

Question

Амурша

22 октября, 19:54

+2

Ответы (1)

Знаете ответ на вопрос?

Вакх · Answer 1

var s:string;

i:integer;

begin

readln (s) ;

for i: = length (s) downto 1 do

if s[i]=',' then delete (s, i, 1) ;

writeln (s) ;

end.

Ошибка времени выполнения: Индекс находился вне границ массиваКак исправить?Program A2;Var s:string;i:integer;BeginReadln (s) ;For i: = 1 to length (s) doIf s[i]=',' then delete (s, i, 1) ;Writeln (s) ;End.