<em>Вариант "а нас в школе учат так", который якобы "проще"</em>
var s:string; c:char; i,k,l,p:integer; begin // Предполагается, что слова разделены ровно одним пробелом Write('Вводите: '); Readln(s); l:=Length(s); if l=1 then Writeln('Найдено одно слово') else begin p:=Pos(' ',s); if (p=0) and (s[1]=s[l]) then Writeln('Найдено одно слово') else begin c:=s[p-1]; if s[1]=c then k:=1 else k:=0; for i:=p+1 to Length(s)-1 do if (s[i]=' ') and (s[i+1]=c) then Inc(k); Writeln('Найдено ',k,' слов, начинающихся с "',c,'"') end end end.
//PascalABC.Net 3.2 begin var a:=arrRandom (random(5, 10), -15, 15); a.Println; for var i:=0 to length(a)-1 do if a[i].isodd then a[i]*=-1; a.Println end.