Cho N và dãy a1-aN. Viết chương trình để tìm ra giá trị lớn nhất của dãy.

Uses crt;

var a:array[1..10000] of longint;

max,n,i:longint;

begin

clrscr;

write(‘N=’);readln(n);

for i:=1 to n do begin write(‘a[‘,i,’]=’);readln(a[i]); end;

max:=a[1];

for i:=2 to n do

if max<a[i] then max:=a[i];

writi(max);

readln

end.