Var a:array[1..10] of integer; i,k,l:integer; begin for i:=1 to 10 do begin write(i,'-й элемент: '); readln(a[i]); end; write('Введите сравнительное число: '); readln(l); writeln('Вычисляем...'); k:=0; for i:=1 to 10 do if a[i]<l then k:=k+1; writeln(k,' чисел меньше ',l); end.