Question

Nhập vào một mảng có n số nguyên dương khác nhau. Hãy in ra tất cả các phần tử
trong mảng có giá trị nhỏ hơn giá trị lớn nhất và lớn hơn giá trị nhỏ nhất của mảng.
Dữ liệu: Cho trong file BT.inp, gồm 2 dòng:
- Dòng 1: Số n là số phần tử của mảng
- Dòng 2: Giá trị các phần tử của mảng, mỗi phần tử cách nhau 1 khỏang trắng
Kết quả: Xuất ra file BT.out, là các phần tử tìm được, mỗi phần tử viết trên 1 dòng

Answer 1

const fi='bt.inp';
fo='bt.out';
var f1,f2:text;
a:array[1..100]of integer;
i,n,max,min:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
for i:=1 to n do
if (min<a[i]) and (a[i]<max) then write(f2,a[i]:4);
close(f1);
close(f2);
end.