работа со строками Опции

[vjtr]

задан массив слов. объединить все слова в единую строку,разделяясоседние слова пробелом.
помогите решить!!! пожалуйста

[Айра]

А что тебе именно непонятно? Что-нибудь пробовал(-а) делать?

[vjtr]

пробовала, но вот как это сделать не понимаю

[Айра]

Все просто
Смотри:

const n=5;  //количество слов
var s: array[1..n] of string;
    st: string;
    i: integer;
begin
  st:='';  //изначально строка пустая
  for i:=1 to n do   //создаем массив со словами
    begin
      write('введите ',i,'-е слово: ');
      readln(s[i]);
    end;
  for i:=1 to n do   //потом в цикле прибавлям к строке слова и пробелы
    if i<>n then  st:=st+s[i]+' '  //если слово не последнее, то прибавляем его и пробел
    else st:=st+s[i];   //а если последнее, то только слово
  write(st);
end.

Сообщение отредактировано: Айра - 13.03.2008 22:41

[vjtr]

смотрите как я делала

   Program Zplata;
      uses wincrt;
      var f:array [1..10] of string[50];
      t:string;
      i,n:integer;
   begin
   	writeln('ââåäè n');
        readln(n);
   for i:=1 to n do begin
      write('f[',i,']=');
      readln;
   end;
   t:='';
 for i:=1 to n do begin
 t:=t+f[i];
          end;
writeln(t);
end.

[Айра]

А скажи-ка, где у тебя идет ввод слов? ..и про пробелы забыла.. Доделай немного и будет нормально)))

[vjtr]

спасибо!!!