viết chương trình dùng đẻ tìm giá trị nhỏ nhất trong 10 phần tử là số nguyên nhập từ bàn phím

0 bình luận về “viết chương trình dùng đẻ tìm giá trị nhỏ nhất trong 10 phần tử là số nguyên nhập từ bàn phím”

1. program oken;
   uses crt;
   var a: array [1..10] of integer;
       i,min: integer;
   begin   
       clrscr;
       for i:=1 to 10 do 
           begin
               write(‘a[‘,i,’]: ‘); 
               readln(a[i]);
           end;
       min:=a[1];
       for i:=2 to 10 do
           if min>a[i] then
               min:=a[i];
       writeln(‘So be nhat trong day so: ‘,min);
       readln;
   end.v

   Bình luận

2. program ct;

   uses crt;

   var i,n,Min:integer;

   A:array[1..10] of integer;

   begin

   clrscr;

   for i:=1 to 10 do

   begin

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

   end;

   Min:=A[1];

   for i:=2 to 10 do

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

   writeln(‘gia tri nho nhat la’,Min);

   readln

   end.

   Bình luận