Найдите в массиве целых чисел 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]<S then begin

k:=k+1;

write(c[i], ' ');

end;

writeln;

write('k=', k);

end.

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