uses crt;
var a:array[1..255]of integer;
i,n,max:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (1<n) and (n<=255);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Day so vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('Gia tri lon nhat la: ',max);
readln;
end.
Nhập vào từ bàn phím dãy A gồm N số nguyên (1<N<255)
1. in dãy vừa nhập râ màn hình
2. cho biết chỉ số mà số hạng dương đầu tiên trong dãy
Hãy viết chương trình pascal nhập tên và lớp của học sinh, nhập từ bàn phím dãy số nguyên gồm n phần tử(n nhập từ bàn phím) n<12, tính trung bình cộng của dãy số trên và in ra màn hình, in ra màn hình các số nguyên tố của dãy số trên.
Viết chương trình nhập từ bàn phím dãy số nguyên N (N<=100). In ra màn hình dãy số vừa nhập
Cho dãy A gồm N số nguyên (N nhỏ hơn hoặc bằng 200) số nguyên A1,A2,...An. Hãy viết chương trình nhập mảng A vào từ bàn phím và đưa ra màn hình tổng các phần tử chia hết cho 5.
Bài 2: Viết chương trình nhập 1 xâu vào từ bàn phím và đưa ra màn hình xâu không chứa dấu cách. 
viết chương trình nhập từ bàn phím dãy số nguyên N (N<=100). in ra màn hình số vừa nhập
Viết chương trình nhập từ bàn phím số nguyên dương N(N=150) và dãy A gồm N số nguyên A¹ , A²,...An, có giá trị tuyệt đối không lớn hơn 900. Hãy cho biết dãy A có phải cấp số cộng hay không và thông báo kết quả ra màn hình
Viết chương trình nhập từ bàn phím 1 dãy số nguyên gồm 10 phần tử Đưa dãy vừa nhập rần hình Đưa các phần tử có giá trị chẵn ra màn hình
