Составить программу, которая посчитает количество элементов - Turbo Pascal

Формулировка задачи:

дано одномерный массив С из n целых чисел. составить программу которая посчитает количество элементов меньших 3 и сумму отрицательных элементов массива больших -5

Решение задачи: «Составить программу, которая посчитает количество элементов»

Листинг программы

uses crt;
var c:array[1..100] of integer;
    n,i,k,s:integer;
begin
clrscr;
repeat
write('Введите размер массива от 10 до 100 n=');
readln(n);
until n in [10..100];
randomize;
writeln('Массив');
k:=0;
s:=0;
for i:=1 to n do
 begin
  c[i]:=-10+random(21);
  if c[i]<3 then k:=k+1;
  if (c[i]<0)and(c[i]>-5) then s:=s+c[i];
  write(c[i]:4);
 end;
writeln;
writeln('Количество элементов меньше 3=',k);
writeln('Сумма элементов от -4 до -1=',s);
readln
end.

Объяснение кода листинга программы

Объявлены переменные: c:array[1..100] of integer; n,i,k,s:integer;
Задается размер массива от 10 до 100, значение переменной n.
Заполнение массива c случайными числами от -10 до 20.
Поиск количества элементов в массиве c, значение которых меньше 3.
Поиск суммы элементов в массиве c, значение которых лежит в диапазоне от -4 до -1.
Вывод на экран количества элементов меньше 3 и суммы элементов от -4 до -1.
Программа ожидает ввода данных с клавиатуры для завершения работы.