Технический форум - Строковый тип данных. Паскаль

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Строковый тип данных. Паскаль (http://www.tehnari.ru/f41/t73873/)

Строковый тип данных. Паскаль

Дана строка из латинских слов, между словами пробелы. Вывести все слова, отличные от последнего.
Помогите пожалуйста.

Цитата:

Сообщение от An4ik7689 (Сообщение 737007)

Да пожалуйста:

Код:

var

 a:array[1..200] of string;

 i,j,N:integer;

 S:string;

begin

 for i:=1 to 200 do a[i]:='';

 writeln('Enter the string:');

 readln(S);

 i:=1;

 j:=0;

 Repeat

  inc(j);

  if S[j]=' ' then

   inc(i)

  else

   a[i]:=a[i]+S[j];

 Until j=Length(S);

 N:=i;

 writeln('Words not coinciding with the last one:');

 for i:=1 to N-1 do

  if a[i]<>a[N] then write(a[i]+' ');

 readln

end.