Admin Admin
Tổng số bài gửi : 152 Join date : 23/04/2022 Age : 41 Đến từ : THPT Chuyên Nguyễn Tất Thành - Yên Bái
| Tiêu đề: Trần Hà Linh Tue Dec 13, 2022 9:14 pm | |
| | |
|
Trần Hà Linh
Tổng số bài gửi : 1 Join date : 13/12/2022
| Tiêu đề: Re: Trần Hà Linh Tue Dec 13, 2022 9:36 pm | |
| Bài 3: 13_12 - Code:
-
Var n,i,p,k: Longint; S: Int64; A:Array[-5..10005] of Longint; Begin Assign(input,'arr1b3.inp'); Reset(input); Assign(output,'arr1b3.out'); Rewrite(output); Readln(n,k); For i:=1 to n do Readln(A[i]); p:=0; For i:=1 to n do If (A[i]=k) then begin p:=1; Write(i); Break; end; If p=0 then Write(-1); Close(input); Close(output); End. | |
|