Ошибка времени выполнения: Индекс находился вне границ массива - PascalABC.NET (121818)

Формулировка задачи:

Var S,T:String;
i,n:integer;
Begin
Write('s:'); Read(S);
for i:=2 to length(s) do
if (s[i]>s[i-1]) and (S[i]<s[i+1]) then begin
n:=n+1; T[n]:=S[i] end;
for i:=1 to n do 
Write(t[i]) END.

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

textual
                            Листинг программы 
                        
                            for i:=2 to length(s)-1 do

Оцени полезность:

13 голосов , оценка 4 из 5

Похожие ответы