Viết chương trình nhập một dãy n số nguyên từ bàn phím và in ra màn hình:

Đây là đoạn code Pascal để giải bài toán trên:

```pascal
program Bai2_DaySo;
var
n, i, max, sum: integer;
arr: array[1..100] of integer;

procedure swap(var a, b: integer);
var
temp: integer;
begin
temp := a;
a := b;
b := temp;
end;

begin
write('Nhap so luong phan tu cua day: ');
readln(n);

sum := 0;
max := -maxint;

for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(arr[i]);
sum := sum + arr[i];

if abs(arr[i]) > max then
max := abs(arr[i]);
end;

writeln('+ Tong cac so trong day la: ', sum);

for i := 1 to n - 1 do
for j := i + 1 to n do
if arr[i] > arr[j] then
swap(arr[i], arr[j]);

write('+ Sap xep tang dan: ');
for i := 1 to n do
write(arr[i], ' ');

writeln;

writeln('+ So co GTTD lon nhat la: ', max);
end.
```

Bạn có thể sao chép đoạn code trên và chạy trên trình biên dịch Pascal để kiểm tra kết quả. Chúc bạn thành công!