Цитата:
Сообщение от Vladimir_S
Легко. Правда, это для НОРМАЛЬНОГО Паскаля, а не АВС, так что уж сами поправьте, если что.
Код:
Var
S:string;
i,N:integer;
W:Array[1..128] of String;
Begin
writeln('Enter the string: ');
readln(S);
N:=1;
i:=0;
Repeat
Inc(i);
W[N]:='';
While (S[i]<>' ') and (i<=Length(S)) do
begin
W[N]:=W[N]+S[i];
Inc(i);
end;
If S[i]=' ' then Inc(N);
Until i>=Length(S);
For i:=1 to N do Writeln(W[i]);
Readln
End.
|
Выдает ошибку:"Ошибка времени выполнения: Индекс находился вне границ массива" Что делать?