Дана программа которая должна удалять пробелы из строки program var15_stroki; var s: string; i,endstr: integer; begin readln(s); endstr: =length(s); for i: =2 to endstr do if s[i]=' ' then delete(s,i,1); writeln(s); readln; end. вот тут ошибка if s[i]=' ' then программа выдает ошибка времени выполнения, индекс находился вне границ массива нужно исправить

272

379

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

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

Misaki59

Информатика

4,7(2 оценок)

Если по мере выполнения цикла for менять значение переменной его границы, то цикл не будет меняться, а так как ты удаляешь пробелы, то длина строки уменьшается. в твоем примере нужно заменить цикл for на цикл while(i< =length(s)) ну и в цикле добавить i: =i+1;