с во обращение к программистам)

const N = 30;

var a : array[1..N] of integer;

   i, j, x : integer;

   

Begin

 for i := 1 to N do readln(a[i]);

 readln(x);

 for i := 1 to N do begin  //перебираем элементы массива

   if a[i] = x then begin  //если находим элемент равный Х то

     writeln('наименьший номер элемента равного X - ', i); //выводим сообщение

     exit;  //и завершаем программу не завершив перебор, т.к. нам нужен только наименьший номер

   end;

 end;

 writeln('такого элемента нет'); //если перебрав весь массив не находим совпадений то выводим сообщение

end.

Объяснение:

объяснения в комментариях программы

проверено на PascalABC

Begin  var q:=new Queue<integer>;  var n:=ReadInteger('Кол-во элементов (не менее 4):');  Randomize;  var k:integer;  for var i:=1 to n do begin    k:=Random(-20,40); Print(k);    q.Enqueue(k)    end;  Writeln; // очередь заполнена, выведены ее элементы  var (ko,s):=(-100,0);  for var i:=1 to n do begin    k:=q.Dequeue; q.Enqueue(k);    if k.IsOdd then ko:=k;    if i=3 then s:=k    end;  s+=ko;  q.Enqueue(s);  q.Println; // искомая сумма помещена в очередь  for var i:=1 to n do begin    k:=q.Dequeue;    if i<>4 then q.Enqueue(k)    end;  q.Printlnend.