Question

Câu 1:Viết chương trình nhập vào mảng một chiều gồm N(N<=250) số nguyên A1,A2..An.Tìm và đưa ra giá trị nhỏ nhất trong dãy A.Dữ liệu vào: Cho tệp: Min.inp gồm:-Dòng 1: số nguyên dương N

-Dòng 2:n số nguyên dương a1,a2,a3...,an

Kết quả: ghi tệp Min.out gồm giá trị nhỏ nhất trong dãy A

câu 2:Cho dãy A gồm N số nguyên a1,a2,a3...,an. Hãy viết chương trình sắp xếp dãy A thành dãy không giảm.Dữ liệu vào: cho tệp: Sapxep.inp gồm:-Dòng 1: số nguyên dương N

-Dòng 2: n số nguyên dương a1,a2,a3...,an

Kết quả: ghi tệp sapxep.out gồm:Dãy A đã được sắp xếp không giảm

Answer 1

Câu 1:

const fi='min.inp';

fo='min.out';

var f1,f2:text;

a:array[1..250]of integer;

i,n,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]);

min:=a[1];

for i:=1 to n do

if min>a[i] then min:=a[i];

writeln(f2,min);

close(f1);

close(f2);

end.

Câu 2:

const fi='sapxep.inp';

fo='sapxep.out';

var f1,f2:text;

a:array[1..250]of integer;

i,n,tam,j: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]);

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]>a[j] then

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

for i:=1 to n do write(f2,a[i]:4);

close(f1);

close(f2);

end.