Viết chương trình nhập vào một dãy số nguyên, đưa ra màn hình vị trí và phân tử nhỏ nhất

0 bình luận về “Viết chương trình nhập vào một dãy số nguyên, đưa ra màn hình vị trí và phân tử nhỏ nhất”

1. program min_vitri;

   uses crt;

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

         n,min,i:integer;

   begin

   clrscr;

   write(‘Nhap so luong phan tu n: ‘);   readln(n);

   writeln(‘NHAP GIA TRI TUNG PHAN TU CUA DAY’);

   for i:=1 to n do

    begin

     write(‘Nhap phan tu thu ‘,i’: ‘);

     readln(A[i]);

    end;

   min:=A[1];

   for i:=2 to n do

    if A[i]<min then min:=A[i];

   writeln(‘Phan tu nho nhat la ‘,min);

   writeln(‘Vi tri xua hien la:’);

   for i:=1 to n do

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

   readln

   end.

   Bình luận

2. uses crt;

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

         i,n,min, vt: integer;

   begin

   clrscr;

   write (‘nhap so phan tu: ‘);  readln (n);

   for i:=1 to n do

   begin

   write (‘nhap a[‘,i,’]: ‘);   readln (a[i]);

   if min>a[i] then

   begin

   min:=a[i];

   vt:=i;

   end;

   end;

   writeln (‘phan tu nho nhat la a[‘,vt,’]= ‘,a[vt]);

   readln;

   end.

   Bình luận