Lớn nhất
Xem PDF
Điểm:
100 (p)
Thời gian:
1.0s
Bộ nhớ:
256M
Input:
bàn phím
Output:
màn hình
An thích những thứ be bé nhưng T lại không như vậy. Để chiều lòng T, An quyết định tặng cho nàng phần tử lớn nhất trong dãy có độ dài \(n\). Hãy giúp An tìm nó nhé!
Input
- Dòng 1: số \(n\) \((n \leq 10^5)\)
- Dòng 2: dãy gồm \(n\) số \(a_i(1 \leq a_i \leq 10^9)\)
Output
- In ra số lớn nhất
Example
Test 1
Input
5
1 3 5 7 6Output
7
Bình luận
Var max,n,k:int64;
i:longint;
A:array[1..100000] of int64;
begin
Readln(n);
for i:=1 to n do read(A[i]);
max:=A[1];
for i:= 1 to n do
begin
If A[i]>max then
begin
max:=A[i];
k:=i;
end;
end;
Writeln(max);
Readln;
readln
end.
3 bình luận nữa