- Chương trình 1 :
uses crt;
var a : array [1 .. 100] of integer;
i, n : integer;
begin
clrscr;
write('Nhap so n = '); readln(n);
write('Nhap mang ', n ,' so : ');
for i := 1 to n do read(a[i]);
writeln('Cac gia tri le lon hon 1 nho hon n : ');
for i := 1 to n do if (a[i] > 1) and (a[i] < n) then
write(a[i],' ');
readln
end.
- Chương trình 2 :
uses crt;
var a : array [1 .. 100] of integer;
i, n, min : integer;
begin
clrscr;
write('Nhap so n = '); readln(n);
write('Nhap mang ', n ,' so : ');
for i := 1 to n do read(a[i]);
min := a[1];
for i := 2 to n do
if a[i] < min then min := a[i];
write('Gia tri nho nhat = ', min);
readln
end.
