Viết chương trình khai báo biến mảng với chỉ số dữ liệu và độ dài được nhập vào từ bàn phím. Tìm số nhỏ nhất Giúp mình

0 bình luận về “Viết chương trình khai báo biến mảng với chỉ số dữ liệu và độ dài được nhập vào từ bàn phím. Tìm số nhỏ nhất Giúp mình”

1. program dev;
   uses crt;
   var a:array[1..100] of integer;
         n,i,min:integer;
   begin
         clrscr;
         write(‘Nhap so luong phan tu: ‘); readln(n);
         for i:=1 to n do
               begin
                     write(‘a[‘,i,’]: ‘); readln(a[i]);
               end;
         min:=a[1];
         for i:=2 to n do if a[i]<min then min:=a[i];
         write(‘Gia tri nho nhat: ‘,min);
         readln;
   end.

   Bình luận

2. program mang;

   uses crt;

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

         n,i,min: integer;

   Begin

            clrscr;

            write(‘Nhap do dai mang: ‘); readln(n);

            min:=1;

            for i:=1 to n do

            begin

                     write(‘A[‘,i,’]=’); readln(A[i]);

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

            end;

            write(‘So nho nhat: ‘,min);

            readln

   End.

   Bình luận