Question

Viết chương trình dãy N số nguyên từ bàn phím.

a) In ra phần tử có giá trị nhỏ nhất và vị thứ của nó

b)sắp xếp dãy tăng dần các gí trị

Answer 1

uses crt;

var a:array[1..100]of integer;

n,i,min,tam,j:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

min:=a[1];

for i:=1 to n do

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

writeln('Gia tri nho nhat la: ',min);

writeln('Vi thu cua no la: ');

for i:=1 to n do

if min=a[i] then write(i:4);

writeln;

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;

writeln('Day so sau khi sap xep tang dan la: ');

for i:=1 to n do

write(a[i]:4);

readln;

end.