задан массив слов. объединить все слова в единую строку,разделяясоседние слова пробелом.
помогите решить!!! пожалуйста
А что тебе именно непонятно? Что-нибудь пробовал(-а) делать?
пробовала, но вот как это сделать не понимаю
Все просто
Смотри:
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.
смотрите как я делала
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.
А скажи-ка, где у тебя идет ввод слов? ..и про пробелы забыла.. Доделай немного и будет нормально)))
спасибо!!!