Дана строка, заканчивающаяся точкой. подсчитать, сколько в ней слов.

Считаем, что слова разделяются ровно одним пробелом. тогда слов будет на единицу больше, чем пробелов. var   i, n, p, k: integer;   s: string; begin   write('введите предложение и закончите его точкой: ');   readln(s);   s : = trim(s);   p : = pos('.', s) - 1;   k : = 0;   for i : = 1 to p do       if s[i] = ' ' then k : = k + 1;   writeln('введено слов- ', k + 1) end. тестовое решение: введите предложение и закончите его точкой: карл у клары украл кораллы. введено слов- 5

Const     n = 13; var     a: array[1..n] of integer;     i,k,b: integer; begin randomize; k: =0; write('исходный массив: '); for i: = 1 to n do       begin       a[i]: =random(1001)+1000;       write(' ',a[i]);       b: =a[i];       while b div 100 > 0 do             b: =b div 10;       if (b mod 10) mod 2 = 0 then k: =k+1;       end; writeln; writeln('искомое количество: ',k); end.

Const  n = 10; var  a: array [1..n, 1..n] of integer;           i, j, min, max, result: integer; begin      for i : = 1 to n do    for j : = 1 to n do      readln(a[i, j]);       min : = a[1, 1]; max : = a[1, 1];   for i : = 1 to n do    for j : = 1 to n do    begin      if a[i, j] > max then        max : = a[i, j];       if a[i, j] < min then        min : = a[i, j];     end;   result : = sqr(min) * sqr(max);   writeln(result);     end.