Написать программу поиска элемента массива, равный заданному числу 17, используя поиск с барьером. решить на pascalabc оформить в виде процедуры.

Const n=10; 
type ar=array[1..n+1] of integer;
var 
a:ar; i,p:integer; 
procedure pr(var a:ar; p:integer; var k:integer);
begin
k:=1;
while a[k]<>p do k:=k+1;
end;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
 begin
 a[i]:=random(31);
 write(a[i]:4);
 end;
writeln;
p:=17;
a[n+1]:=p;
pr(a,p,i);
if i<n 
 then writeln('Значение 17 найдено, номер элемента = ',i)
 else writeln('Значения 17 в массиве нет');
end.

Пример:
Массив A:
  14   5   7  17  25  15  28   0  24   0
Значение 17 найдено, номер элемента = 4

program arrdiap;

var

 N, A, B, i: Integer;

 M: array of Integer;

begin

 Write ('Введите размерность массива: ');

 ReadLn (N);

 SetLength (M, N);

 Randomize;

 for i := Low (M) to High (M) do begin

   M [i] := Random (100);

   Write (M [i], ' ');

 end;

 WriteLn;

 Write ('Введите диапазон A, B: ');

 ReadLn (A, B);

 WriteLn;

 WriteLn ('Принадлежит диапазону ', A, ' - ', B, ':');

 for i := Low (M) to High (M) do begin

   if (M [i] >= A) and (M [i] <= B) then

     Write (M [i], ' ');

 end;

 ReadLn;

end.

поскольку неточное и малопонятное, то сначала создадим общую папку и файл в ней, а потом скачаем ее с другого компьютера. алгоритм для ос windows 10

создадим общую папку

1) одинаково называем рабочую группу у обоих компьютеров.

пуск → параметры → система → о системе, пункт "организация"

если разная, то сведенья о системе → изменить параметры → изменить и ввести имя группы

2) найти/открыть папку, которую требуется сделать общей

3) клик правой кнопкой мыши по папке → свойства → доступ → расширенная настройка

4) нажать «открыть общий доступ к этой папке»

5) открыть «разрешения» и выставить необходимые разрешения

6) создать или скопировать файл в выбранную папку

скачать файл к себе на компьютер

1) заходим в проводник - сеть

2) находим компьютер, где лежит файл. открываем

3) открываем нужную папку, к которой дан общий доступ

4) при необходимости в всплывающем окне вводим логин и пароль учетной записи компьютера в который мы зашли (зависит от настроек доступа и политик безопасности)

5) находим файл и копируем его.

6) открываем целевую папку на своем компьютере и вставляем туда файл