Вот этот кусочек будет считать сколько элементов в массиве меньше 6.
x := 0;
for i := 1 to n do
begin
if m[i] < 6 then
inc(k);<span>
end;
writeln(k);
</span>
50-если посчитать все буквы,пробелы и знаки.По кол-во событий 5.
В 1988 году была отмечена эпидемия компьютерного вируса<span> Jerusalem, который был запрограммирован на особенно разрушительные действия, если активировался в пятницу 13-го. В первый раз это произошло в пятницу </span>13 мая 1988 года<span>. Этот </span>чёрный юмор<span> был перенят авторами некоторых других компьютерных вирусов.</span>
Program p1;
Uses crt;
Var A: array [1..10] of integer;
i,k: integer;
Begin clrscr;
Writeln ('Введите элементы массива');
for i:=1 to 10 do
read (a[i]);
k:=0;
for i:=1 to 10 do
begin
if (a[i]>10) and (a[i]<30) then
k:=k+1;
end;
writeln ('Количество чисел в диапазоне (10;30) =',k);
Readln;
readkey;
end.