BÀI TẬP 12: TÌM VỊ TRỊ VÀ GIÁ TRỊ NHỎ NHẤT TRONG DÃY SỐ

Tìm chỉ số và giá trị của phần tử nhỏ nhất trong dãy số B với điều kiện N là số nguyên dương (N ≤ 200) và mỗi giá trị của phần tử không vượt qúa 1000.

CODE THAM KHẢO:

program SNN;

uses crt;

var max,min,i,x:integer;

    a,vt:array[1..200] of integer;

    n:byte;

begin

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

  while (n=0) or (n>200) do 

  begin 

    clrscr;

    write('Nhap N trong gioi han 1..200:');

    readln(n);

  end;

  min:=maxint;

  for i:=1 to n do 

  begin 

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

    while a[i]>1000 do 

    begin 

      write('Nhap phan tu ',i,'<=1000:');

      readln(a[i]);

    end;

    if a[i]<min then 

    begin 

      min:=a[i];x:=1;vt[x]:=i;

    end else

    if a[i]=min then 

    begin 

      inc(x);vt[x]:=i;

    end;

  end;

  writeln('So nho nhat: ',min);

  write('vi tri: ');

  for i:=1 to x do write(vt[i],' ');

  readln;

end.