Đang tải... (xem toàn văn)
Bài 1: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ảngDò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ắngKế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òngChương trình:Type mang=array1..100 of longint;const fi=bt.inp; fo=bt.out; var f:text; n:integer; A:mang;procedure nhap;var i:integer;begin assign(f,fi); reset(f); read(f,n); for i:=1 to n do read(f,Ai); close(f);end;procedure xuli;var i,min,max:longint;begin assign(f,fo); rewrite(f); max:=0; min:=A1; for i:=1 to n do begin if maxAi then min:=Ai; end; for i:=1 to n do if (Aimax) and (Aimin) then writeln(f,Ai); close(f);end;begin nhap; xuli;end. Bài 2:Tổng lập phươngTìm tất cả các số có 3 chữ số sao cho tổng lập phương của các chữ số bằng chính số đóVí dụ: 153=13+53+33Dữ liệu xuất: Xuất ra file LP.OUT, mỗi dòng là một số tìm đượcChương trình:program bt;var f:text;n:longint;const fo=lp.out;procedure xuli;var i,j,k:integer;begin assign(f,fo); rewrite(f); for i:=1 to 9 do for j:=0 to 9 do for k:=0 to 9 do if iii+jjj+kkk=i100+j10+k then writeln(f,i,j,k,=,i,3+,j,3+,k,3); close(f);end;begin xuli;end. Bài 3:Hè đến rồi, Nam được bố dẫn đi chơi công viên. Trong công viên có nhiều gian hàng trò chơi, trong đó Nam thích nhất là gian trò chơi chọn số. Người ta viết sẵn một số dãy số số nguyên dương không được sắp xếp ( dãy này có N phần tử, các phần tử có giá trị khác nhau đôi một, N