Написать программу, которая вычисляет, сколько раз введенное с клавиатуры число встречается в линейном массиве из 10 случайных чисел. pascal abc

Var   a: array[1..10] of integer;   b,i,k: integer; begin   randomize;   write('введите количество элементов в массиве: ');   for i: =1 to 10 do   begin       a[i]: =random(21)-10;       write(a[i],' ')       end;   writeln;   write('какое число искать? ');   readln(b);   k: =0;   for i: =1 to 10 do       if a[i]=b then inc(k);   writeln('число встречается ',k,' раз') end. подробнее - на -

Var   a: array[1..10] of integer;   b,i,k: integer; begin   randomize;   write('введите количество элементов в массиве: ');   for i: =1 to 10 do   begin       a[i]: =random(21)-10;       write(a[i],' ')       end;   writeln;   write('какое число искать? ');   readln(b);   k: =0;   for i: =1 to 10 do       if a[i]=b then inc(k);   writeln('число встречается ',k,' раз') end.

пусть [a,b] - область и a< =b

var

a,b,x: real;

begin

readln(a,b,x);

if (a< =x) and (x< =b) then

writeln('принадлежит')

else

writeln('не принадлежит');

end.