giúp em với đang cần gấp ạ 1.for: i:=28 do writeln(‘A’)số vòng lập bao nhiêu? 2.Viết chương trình tìm giá trị lớn nhất trong 10 dãy số nguyên nhân từ

a) lệnh sai

b)

program bt;

uses crt;

var a:array[1..100] of integer;

i,max:integer

begin clrscr;

for i:=1 to 10 do readln(a[i]);

max:=a[1];

for i:=2 to 10 do if max<a[i] thne max:=a[i];

writeln(max);

readln

end.