Question

Viết chương trình pascal tìm phần tử nhỏ nhất trong 1 dãy số nguyên có n số (n

Answer 1

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

       i,n,x : byte;

      min:integer;

begin 

 write('Dãy có số phần tử là : '); 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 begin

                                                    min:= A[i];

                                                    x:=i;

                                                    end;

write('Phần tử bé nhất trong dãy là : A[',x,']');

readln

end.