Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы. Если таких нет, то вывести сообщение об этом.Язык программирования Паскаль (Если не сложно с объяснением как все работает)

Const PTR = 10;
type razbivka = array[0..PTR] of byte;
var n, i, z, k: byte;
x: razbivka;
procedure p(var x: razbivka; var z: byte);
var i, j, s: byte;
begin
i := z - 1;
s := x[z];
while (i > 1) and ( x[i - 1] <= x[i] ) do
begin
s := s + x[i];
dec(i);
end;
inc( x[i] );
z := i + s - 1;
for j := i + 1 to z do
x[j] := 1;
end;
begin
write('Введите число: ');
readln(n);
write(n,' = ');
z := n;
for i := 1 to z do
x[i] := 1;
for i := 1 to n do begin
if i > 1 then write(' + ');
write( x[i], '' );
end;
writeln;
repeat
p( x, z );
inc(k);
write( n,' = ' );
for i := 1 to z do begin
if i > 1 then write(' + ');
write( x[i], '' );
end;
writeln;
until z = 1;
end.

p.s: нашел в интернете для вас вариант с рекурсией. Сами можете убедиться, что с ней только хуже (по быстродействию уж точно)

const  m = 100;
var  a: array[1..m] of integer;
k, n: integer;
procedure p(j,n: integer);
var  i: integer;
begin if ( n = 0 ) and ( k > 1 ) then
begin  for i := 1 to k do
write( a[i] : 4 );
writeln;
end else for i := j to n do
begin
Inc(k);
a[k] := i;
p( j, n - i );
Dec(k);
end;
end;
begin
write('Введите число: ');
readln(n);
k := 0;
p(1,n);
end.

значения PTR и m можно поставить и больше, но тогда я не ручаюсь)

1.

#include <iostream>

#include <algorithm>

#include <iomanip>

#include <cmath>

using namespace std;

int main()

{

   long long a[20], i, sum = 0, sum1 = 0;

   for(i = 0; i < 20; i++)

   {

       cin >> a[i];

       if(a[i] < 0)

       {

           sum += a[i];

           sum1++;

       }

   }

   for(i = 0; i < 20; i++)

       cout << a[i] << " ";

   cout << endl;

   cout << sum << " " << sum1 << " " << sum / sum1 << endl;

   return 0;

}

2.

#include <iostream>

#include <algorithm>

#include <iomanip>

#include <cmath>

using namespace std;

int main()

{

   long long b[6][4], i, j;

   for(i = 0; i < 6; i++)

   {

       for(j = 0; j < 4; j++)

       {

           b[i][j] = rand() % 100;

           if(b[i][j] > 9 && b[i][j] < 100)

               b[i][j] = 10;

           cout << b[i][j] << " ";

       }

       cout << endl;

   }

   return 0;

}

Объяснение: