Bài 4. Tìm vị trí Tên file: POS.*** Cho dãy số gồm n số thực. Sau đó: - Tìm số âm đầu tiên trong dãy - Tìm số dương cuối cùng trong dãy - Vị trí đầu tiên và vị trí cuối cùng của phần tử x trong dãy. Input: - Dòng đầu chứa số nguyên dương n và x (1 <= n <= 100) - Dòng 2 gồm n số thực a1, a2, ..., an. Output: - Dòng 1: giá trị của số âm đầu tiên trong dãy, giá trị của số dương cuối cùng trong dãy - Dòng 2: vị trí đầu tiên và cuối cùng của phần tử x trong dãy Ví dụ Input Output 7 2.00 -1.00 4.00 -3.00 2.00 -5.00 2.00 -1.00 -1.00 2.00 4 6 pascal

program Hoidap247;
var
  n, i, tdau, tsau: integer;
  x, timdau, timsau: real;
  a: array[1..100] of real;
begin
  readln(n, x);
  for i := 1 to n do
    read(a[i]);
  timdau := 0;
  for i := 1 to n do
  begin
    if (a[i] < 0) and (timdau = 0) then
      timdau := a[i];
  end;
  if timdau <> 0 then
    writeln(timdau:0:2);
  timsau := 0;
  for i := n downto 1 do
  begin
    if a[i] > 0 then
    begin
      timsau := a[i];
      break;
    end;
  end;
  if timsau <> 0 then
    writeln(timsau:0:2);
  tdau := 0;
  tsau := 0;
  for i := 1 to n do
  begin
    if (a[i] = x) and (tdau = 0) then
      tdau := i;
    if a[i] = x then
      tsau := i;
  end;
  if (tdau <> 0) and (tsau <> 0) then
    writeln(tdau, ' ', tsau)
end.

var a,d,x,x1,x2,arr: real;
    i,n: int64;
begin
    readln(n,x);
    a:=0; d:=0; x1:=-1; x2:=-1;
    for i:=1 to n do begin
        read(arr);
        if (arr<0) and (a=0) then a:=arr;
        if arr>0 then d:=arr;
        if arr=x then begin
            if x1=-1 then x1:=i;
            x2:=i;
        end;
    end;
    writeln(a:0:2,' ',d:0:2);
    write(x1:0:0,' ',x2:0:0);
end.