Đáp án :

program abcxyz;
var x:array [1..20] of integer;

max,i:integer;
begin
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.

program ct;

uses crt;

var i,n,Max:integer;          

dayso: array[1..20] of integer;

begin

clrscr;

      for i:=1 to 8 do

begin

       write('nhap dayso[',i,']:=');readln(dayso[i]);

end;

       Max:=dayso[1];

           for i:=2 to 8 do

              if Max<dayso[i] then Max:=dayso[i];

     writeln('gia tri lon nhat la:',Max);

readln

end.