Question

Берілген сөйлемдегі ең қысқа  сөздің орнын  анықтайтын программа құру паскаль?

Answer 1

program slova;

const r1:string ='Кому на Руси жить хорошо написал Некрасов';

var i,k,m,min,imin:integer; b:array[1..100] of integer;

begin m:=0;

k:=length(r1);

for i:=b[1]+1 to k do write (r1[i]);

writeln;

writeln('Длинна строки ',k);

for i:=1 to k do if r1[i]=' ' then

begin m:=m+1;

b[m]:=i; if m=b[i] then b[i]:=i;

end;

end.