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

[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