Question

Viết chương trình Pascal tìm GTNN trong dãy A={a₁, a₂, a₃,....., a_n} (Sử dụng biến mảng)

Answer 1

Program Search_Min;
Uses Crt;
Var i, N, Min: Integer;
A: array[1..100] of Integer;
Begin
Clrscr;
Write('Nhap do dai cua day so,N='); Readln(N);
Writeln('Nhap cac phan tu cua day so:');
For i:=1 to N do
Begin
Write('a[',i,']='); Readln(a[i]);
End;
Min:=a[1];
For i:=2 to N do
begin if Min>a[i] then Min:=a[i];
end;
Writeln('Gia tri Min:',Min);
Readln
End.