Двумерные массивы Опции

[ganibal]

Здраствуйте.
Вообщем вот задача, пожалуйста, у кого какие мысли есть:

Пусть дана последовательность, содержащая от 2 до 30 слов, в каждом из которых от 2 до 10 строчных латинских букв; между соседними словами - не менее одного пробела, за последним словом-точка. Напечатайте все слова, отличные от первого слова, предварительно удалив из каждого слова все предыдущие вхождения последней буквы.

Сообщение отредактировано: ganibal - 14.12.2009 21:12

[volvo]

Прога у меня работает

ТЕПЕРЬ работает, хотелось бы заметить. Раньше у тебя

 while (i<>m+1)and(ch<>'.') do
  begin
   j:=1;
   read(ch);
   while (ch=' ') and (ch<>'.') do // Вот этой строки не было 
    read(ch); // и этой тоже... 
   while (ch<>' ')and(j<>n+1)and(ch<>'.') do
	begin
	 txt[i,j]:=ch;
	  j:=j+1;
	  read(ch)
	end;
   slovo[i]:=j-1;
   i:=i+1
  end;