Найдите в массиве целых чисел c (n), сформированном случайным образом, количество чисел, меньших заданного числа В (задаётся с клавиатуры)

Введем следующие обозначения: c - массив из n элементов (формировать его будем случайными целыми числами из любого промежутка, например, из промежутка [-50; 50]); i - порядковый номер элементов массива; с[i] - значения элементов массива, S - заданное число, которое будем вводить с клавиатуры во время выполнения программы, k - количество чисел, меньших S. Будем использовать оператор цикла с параметром for. Тогда программа на языке программирования Pascal ABC может выглядеть так:

program zadacha;

uses crt;

const n=5; var i, s, k: integer;

c: array[1 ... n] of integer;

begin

k:=0;

writeln ('Vvedite chislo S:');

readln (S);

for i:=1 to n do begin

c[i]:=random (50+50+1) - 50;

write (c[i], ' ');

end;

writeln;

for i:=1 to n do

if c[i]
k:=k+1;

write (c[i], ' ');

end;

writeln;

write ('k=', k);

end.

Количество чисел n можно брать любое.