Введите с клавиатуры массива d из n элементов целого типа,нумерация элементов начинается...

Question

Введите с клавиатуры массива d из n элементов целого типа,нумерация элементов начинается с 1 и найти количество элементов меньше чем 21 входные данныеn=4 1 23 45 7 выходные данные 2 Паскаль можно через Random побыстрее тока пожалуйста

Answer 1

Var
  n: integer;

begin
  readln(n);
  var a := ArrRandom(n, -10, 30).Println;
  writeln(a.Where(x -> x < 21).Count);
end.