Question

Найдите в массиве целых чисел c (n), сформированном случайным образом, количество чисел, меньших заданного числа В( задаётся с клавиатуры)

Answer 1

var
  i,n,b:integer;
  a:array[1..20]of integer;
begin
for i:=1 to 20 do
  begin
  a[i]:=random(20);
  write(a[i],' ');
  end;
writeln;
write('Введите b: ');
readln(b);
for i:=1 to 20 do
  if a[i]<b then n:=n+1;
writeln('Ответ: ',n);
end.

Answer 2

Program n1;
Uses Crt;
Var 
c: array[1..10] of integer;
i, b, k:integer;Begin
for i:=1 to 10 do begin
c[i]:=random(40) - 20;
write(c[i]:4);
end;
    writeln();
writeln('Enter B = '); Readln(b);
k:=0;
for i:=1 to 10 do   if (c[i]<b) then k:=k+1;
   writeln('Kol-vo iskomih chisel: ', k);
End.