Uses Crt;
Var a:array[1..1000] of integer;
i,n,max:integer;
Begin
Clrscr;
Write('Nhap so ptu n= '); Readln(n);
For i:=1 to n do
Begin
Write('Nhap a[',i,']= '); Readln(a[i]);
End;
Writeln;
Write('Cac ptu trong day tren la: ');
For i:= 1 to n do write(a[i]:3);
max:=a[1];
Writeln;
Write('Gia tri lon nhat trong day la: ');
For i:= 2 to n do
Begin
If max<a[i] then max:=a[i];
End;
Write(a[i]:3);
Readln
End.
*Nhớ tick và chọn làm câu trả lời hay nhất giúp mình với nhé! Đa tạ! Đa tạ :33
*Có gì cần hỏi thì comment bên dưới nhá :D
