Дана строка, состоящая из слов, набранных заглавными буквами и разделенных пробелами (одним или несколькими). вывести строку (в pascal), содержащую эти же слова, разделенные одним пробелом и расположенные в алфавитном порядке.

program slova; usescrt;

varwords : array[1..100] of string; wc : integer; all,currword,tmp : string; i,j : integer;

begin

    clrscr;

    wc : = 1;

    writeln('‚ўґ¤ёвґ б«®ў  : '); // 'введите слова'

    read(all);

    all : = all + chr(32)+ chr(32);

    for i : = 1 to length(all)-1 do      begin

        if ord(all[i]) = 32 then        begin

          if currword < > '' then            begin              words[wc] : = currword;               inc(wc);

              currword : = '';             end;

          continue;

        end else      begin

currword : = currword + all[i];

end;

end;

  for i : = 1 to wc-2 do  for j : = i + 1 to wc-1 do    if words[i] > words[j] then    begin    tmp : = words[i];     words[i] : = words[j];     words[j] : = tmp;     end;

  writeln('ђґ§г«мв  в: '); // 'результат'

  for i : = 1 to wc-1 do    write(words[i] + ' ');

  readln(tmp);   read(tmp);

end.

карандаш — инструмент в виде стержня, изготавливаемого из пишущего материала (угля, графита, сухих красок и т. п.) применяемый для письма, рисования, черчения.

var i,s,p: integer; a: array [1..100] of integer;

begin 

s: =0; p: =0;

writeln('vvedite masiv a: ');  

for i: =1 to 10 do begin

write('a[',i,']=');

readln(a[i]);

end;

for i: =1 to 10 do begin

if a[i]> 0 then s: =s+a[i];  

end;

s: =s*2;

writeln('udvoennaya suma polozhitelnih elementov=',s);

writeln('indexi elementov kotorie bolshe prediduschego: ');

writeln;

for i: =2 to 10 do begin

if a[i]> a[i-1] then write(i,', ');

end;

for i: =2 to 10 do begin

if ((a[i]> =0) and (a[i-1]> =0)) or ((a[i]< 0) and (a[i-1]< 0)) then p: =p+1;

end;

writeln;

if p> 0 then writeln('masiv imeet pari sosednih elementov s odnakovimi znakami') else   writeln('masiv ne imeet pari sosednih elementov s odnakovimi znakami');  

readln(s);

end.