Question

Помогите надо написать задачу на Паскале В заданном массиве определите количество элементов,которые меньше заданного с клавиатуры числа

Answer 1

Const
  n=10;
var
  i,m,k:integer;
  a:array[1..n] of integer;
begin
  Randomize;
  Write('Исходный массив: ');
  for i:=1 to n do begin a[i]:=Random(90)+10; Write(a[i],' ') end;
  Writeln;
  Writeln('Введите целое число: '); Read(m);
  k:=0;
  for i:=1 to n do
    if a[i]<m then Inc(k);
  Writeln('Количество чисел, меньших ',m,' равно ',k)
end.

Тестовое решение:
Исходный массив: 42 89 49 25 96 87 94 93 41 28
Введите целое число:
50
Количество чисел, меньших 50 равно 5