Question

Viết công thức tìm số nhỏ nhất trong dãy số N (với N nhập từ bàn phím)

Answer 1

Giả sử với mảng A có n phần tử thì bạn có thể dùng khai báo thư viện math rồi dùng hàm như mình nha:
uses math;
var i,n:longint;
A:array[1..1000000] of longint;
begin
read(n);
for i:=1 to n do read(A[i]);
writeln(minvalue(A[1..n]));
end.

Còn nếu không thì làm như mình:
var ........;
min:longint;
begin
read(n);
read(A[1]);
min:=A[1];
for i:=2 to n do
begin
read(A[i]);
if A[i]<min then min:=A[i]
end;
writeln(min)
end.

Answer 2

min:=a[1];

for i:=1 to n do

if a[i]<min then min:=a[i];