Массив просмотреть до точки, если она есть, или до последнего введеного символа. Выдать слово максимальной длины.
Вот у меня есть код программ.
Код
program pr;
var
maxlen, maxpos, lastsp, curlen, i, n: Integer;
str: String;
begin
WriteLn('Vveidite stroku : ');
ReadLn(str);
n := Length(str);
maxlen := 0;
lastSp := 0;
curlen := 0;
for i:=1 to n do begin
if str[i] = ' ' or str[i] = '.' then begin
if curlen > maxlen then begin
maxlen := curlen;
maxpos := lastsp + 1;
end;
curlen := 0;
lastsp := i;
else
Inc(curlen);
end;
if str[i] = '.' then Break;
end;
if maxlen > 0 then
WriteLn('Stroka s max.dlinoj = ', Copy(str, maxpos, maxlen))
else
WriteLn('Indjuk, ti vvel pustuju stroku');
ReadLn;
end.
Поправте его, чтобы было связано с массивами.А то со стрингом, лабу не примет((
