Составить программу определяющую количеств элементов массива с заданным числом т

Количество слов будет на единицу больше количества пробелов, если пользоваться традиционным алгоритмом. 1. традиционное решение. // pascalabc.net 3.1, сборка 1192 от 07.03.2016 var   s: string;   i,k: integer; begin   write('введите строку: '); readln(s);   k: =0;   for i: =1 to length(s) do       if s[i]=' ' then inc(k);   writeln('количество слов равно ',k+1) end. результат выполнения программы: введите строку: а роза упала на лапу азора количество слов равно 6 2. решение срeдствами pascalabc.net 3.1 // pascalabc.net 3.1, сборка 1192 от 07.03.2016 begin   var s: =readlnstring('введите строку: ');   writeln('количество слов равно ',s.towords.count) end. результат выполнения программы: введите строку: а роза упала на лапу азора количество слов равно 6

Var h1: array[1..5] of integer;       h2: array[1..8] of integer;       n1: array[1..5] of integer;       n2: array[1..8] of integer;       i, j: integer; begin randomize; for i: =1 to 5 do {заполняем массивы}   begin   h1[i]: =random(10);   n1[i]: =random(10);   end; for i: =1 to 8 do   begin   h2[i]: =random(10);   n2[i]: =random(10);   end; for i: =1 to 5 do {сравниваем продукцию}   for j: =1 to 8 do   if n1[i]=n2[j] then writeln(i, ' и ', j, ' выпускают одинаковую продукц.'); write('h1 '); {выводим массивы} for i: =1 to 5 do write(h1[i], ' '); writeln; write('n1 '); for i: =1 to 5 do write(n1[i], ' '); writeln; write('h2 '); for i: =1 to 8 do write(h2[i], ' '); writeln; write('n2 '); for i: =1 to 8 do write(n2[i], ' '); writeln; end.