Визначити мінімальний елемент, розташований до першого від'ємного елемента Паскаль АБС​Если что это масивы

1.

const n=10;
var a:array[1..n] of integer;
i,min,max:integer;
begin
for i:=1 to n do a[i]:=random(50);
for i:=1 to n do write(a[i]:4);
writeln;
min:=32000; max:=-32000;
for i:=1 to n do
if a[i]<min then min:=a[i]; 
for i:=1 to n do 
if a[i]>max then max:=a[i];
writeln('минимальный элемент массива = ',min);
writeln('максимальный элемент массива= ',max);
end.

2.

const n=10;
var a:array[1..n] of integer;
i,j,p:integer;
begin
for i:=1 to n do a[i]:=random(20);
for i:=1 to n do write(a[i]:4);
writeln;
for i:=1 to n-1 do begin
for j:=1 to n-1 do
if a[j]<=a[j+1] then begin
p:=a[j]; a[j]:=a[j+1]; a[j+1]:=p; 
end;
end;
for i:=1 to n do write(a[i]:4);
end.

Программа:

X = [int(input("Введите элемент: ")) for _ in range(10)]

print("\n")

Y = [int(input("Введите элемент: ")) for _ in range(10)]

S = [el_X for el_X in X for el_Y in Y if el_X == el_Y]

print(S)

Если программа выше сложна для понимания, предложу её в другом виде:

X = []

Y = []

for _ in range(10):

   num = int(input("Введите цифру: "))

   X += [num]  # То же, что и X.append(num)

print("\n")

for _ in range(10):

   num = int(input("Введите цифру: "))

   Y += [num]  # То же, что и Y.append(num)

S = []

for el_X in X:

   for el_Y in Y:

       if el_X == el_Y:

           S += [el_X]

print(S)