program BT2;
ues crt
var x:array [1..20] of integer;max,i:integer;
begin
clrscr;
writeln('nhap gia tri cho x:');
for i:=1 to 8 do
begin
write('x,'i,'=');readln(x[i]);
end;
writeln('cac phan tu cua mang la:');
for i:=1 to 8 do
write(x[i],'  ');
writeln;
max :=x[i];
for i:=2 to 8 do
if x[i] > max then max:=x[i];
writeln ('GTLN :,'max);
readln;
end.
Chúc các bạn làm bài tốt nha đúng hết rồi đó