Размещено 6 лет назад по предмету
Информатика
от 3ann38
Ошибка времени выполнения: Индекс находился вне границ массива
Как исправить?
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.