un4-funeral » 19 апр 2008, 20:01
эмм...
Код: Выделить всё
program strok_1;
uses crt;
const n=10;
Type mas=array[1..n] of string;
var i,j,p:integer;
a:mas;
str,st:string;
begin
clrscr;
writeln('vvedite stroku');
readln(str);
str:=str+' ';
i:=0;
repeat
inc(i);
p:=pos(' ',str);
a[i]:=copy(str,1,p-1);
delete(str,1,p);
until p=0;
writeln('vivod massiva');
for j:=1 to i do
write(a[j],' ');
readln;
end.
вводишь строку...отделяя слова пробелами
прога переносит все слвоа в массив
а с элементами массива работать уже не сложно...доделать немного надо =) сам давай
эмм...
[code]
program strok_1;
uses crt;
const n=10;
Type mas=array[1..n] of string;
var i,j,p:integer;
a:mas;
str,st:string;
begin
clrscr;
writeln('vvedite stroku');
readln(str);
str:=str+' ';
i:=0;
repeat
inc(i);
p:=pos(' ',str);
a[i]:=copy(str,1,p-1);
delete(str,1,p);
until p=0;
writeln('vivod massiva');
for j:=1 to i do
write(a[j],' ');
readln;
end.
[/code]
вводишь строку...отделяя слова пробелами
прога переносит все слвоа в массив
а с элементами массива работать уже не сложно...доделать немного надо =) сам давай