Question

viết chương trình nhập vào mảng tìm phần tử nhỏ nhất mảng và vị trí của nó

Answer 1

program hotrotinhoc;

var vt,i,n,min: integer;

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

begin

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

for i:=1 to n do

begin

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

end;

min:=32000;

for i:=1 to n do

if a[i] < min then

begin

min:=a[i];

vt:=i;

end;

writeln('Phan tu nho nhat :',min);

write('Vi tri : ',vt);

readln

end.