Viết chương trình vào dãy gồm n số nguyên từ bàn phím và in ra màn hình số có giá trị nhỏ nhất ( Dạng kiểu mảng)
Viết chương trình vào dãy gồm n số nguyên từ bàn phím và in ra màn hình số có giá trị nhỏ nhất ( Dạng kiểu mảng)
Program Hotboy;
Uses crt;
Var a:array[1..100] of integer ;
I,n,s: longint;
Begin
Clrscr;
Write(‘nhap so phan tu cua mang’); readln(n);
For i:=1 to n do
Begin
Write(‘A[‘,i,’]’); readln(A[i]);
End;
S:=A[1];
For i:=1 to n do
If A[i] <S then S:=A[i];
Write(‘gia tri nho nhat trong mang la’,S);
Readln
End.
program oken;
uses crt;
var a: array [1..100] of integer;
n,i,min: integer;
begin
clrscr;
write(‘nhap so phan tu cua mang: ‘);
readln(n);
for i:=1 to n do
begin
write(‘nhap a[‘,i,’]: ‘);
readln(a[i]);
end;
min:=a[1];
for i:=2 to n do
if min>a[i] then min:=a[i];
writeln(‘so nho nhat trong mang: ‘,min);
readln;
end.