viết chương trình tìm ra số nhỏ nhất trong dãy số và chỉ số của nó

0 bình luận về “viết chương trình tìm ra số nhỏ nhất trong dãy số và chỉ số của nó”

1. program sonhonhat;

   uses crt;

   var n,i,min: integer;

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

   begin

   clrscr;

   write (‘nhap so 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 a[i]<min then min:=a[i];

   write (‘so nho nhat la ‘,min);

   readln;

   end.

   Bình luận

2. program SNN;

   uses crt;

   var n, i, Min: integer;

         A: ARRAY [1..100] OF integer;

   begin

   write(‘Nhap do dai cua mang, n = ‘); readln(n);

   for i := 1 to n do 

   begin 

   write(‘So A[‘,i,’] la: ‘); read(A[i]);

   end;

   min := A[1];

   for i := 1 to n do

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

   writeln(‘So nho nhat trong day la: ‘,Min);

   readln

   end.

   Bình luận