Question

viết chương trình cho nhập n số vào mảng có giới hạn 250 phần tử và in ra màn hình số nhỏ nhất trong các số vừa nhập là số thứ mấy

Answer 1

uses crt;

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

i,n,min,vt: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];

for i:=1 to n do

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

writeln('So nho nhat la: ',min,' va o vi tri thu ',vt);

readln;

end.