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

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.

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