Спрощення у групах приголосних на місці пропуску позначається на письмі в усіх словах рядка a.
проїз..ний, хрус..нути, балас..ний, віс..ник

b.
корис..ний, заздріс..но, хворос..няк, тріс..нути

c.
доблес..ний, якіс..ний, хрес..ний, випус..ний

d.
блис..нути, улес..ливий, очис..ний, реміс..ник

e.
безшелес..но, гіган..ський, виїз..ний, облас..ний

Объяснение:

const

 n = 10;

 ar:array[1..n] of integer = (-2, -1, 2, 3, 4, 5, -5, -6, 2, 5);

var

 i:integer;

 is_first_pol:boolean;

 raz_pol:integer;

begin

 

 raz_pol:=0;

 is_first_pol:=true; // флаг того, что найденное положительное число - первое

 

 for i:=1 to n do begin

   

   if (ar[i] > 0) then

     

     if (is_first_pol) then begin

       // если найденное полодительное число - первое, то

       raz_pol:=ar[i]; // в нашу разницу заносим это число

       is_first_pol:=false; // меняем флаг

     end

     else raz_pol:=raz_pol - ar[i]; // иначе вычисляем разницу

 

 end;

 

 writeln(raz_pol);

end.

// PascalABC.NET 3.2, сборка 1436 от 01.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadlnInteger('Количество строк: ');
  var a:=new string[n];
  for var i:=0 to n-1 do a[i]:=ReadlnString;
  Writeln('*** РЕЗУЛЬТАТ ***');
  a:=a.Select(s->(s,s.ToCharArray.Where(c->c=' ').Count))
    .OrderBy(vk->vk[1]).Select(vk->vk[0]).ToArray;
  a.Println(NewLine)
end.

Пример
Количество строк:  4
Это   первая   стро  ка
А     это    вторая       строка
Это- третья
    Четвертая - последняя
*** РЕЗУЛЬТАТ ***
Это- третья
    Четвертая - последняя
Это   первая   стро  ка
А     это    вторая       строка