K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

29 tháng 3 2021

var a:array[1..100]of longint;
n,i,t,max:integer;
begin
read(n);
for i:=1 to n do
begin
read(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
t:=max+1;
write(t);
end.