viết chương trình khai báo mảng a gồm n phần tử, với n là số lượng các số nguyên nhập từ bàn phím. tìm và in ra màn hình số nhỏ nhất trong mảng a. (n cũng được nhập vào bàn phím)
viết chương trình khai báo mảng a gồm n phần tử, với n là số lượng các số nguyên nhập từ bàn phím. tìm và in ra màn hình số nhỏ nhất trong mảng a. (n cũng được nhập vào bàn phím)
program ct;
uses crt;
var Min,i,n:integer;
A:array[1..100] of integer;
begin
clrscr;
write(‘nhap n:=’);readln(n);
for i:=1 to n do
begin
write(‘nhap mang A[‘,i,’]:=’);resdln(A[i]);
end;
Min:=A[1];
for i:=2 to n do
if Min>A[i] then Min:=A[i];
writeln(‘gia tri nho nhat cua day so la:’,Min);
readln
end.
var a: array[1..1000] of integer;
n,i,min: integer;
Begin
write(‘Nhap n: ‘); 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 min:=a[i];
write(‘So nho nhat trong mang la: ‘,min);
readln;
End.