viết chương trình tìm ra số nhỏ nhất trong dãy số và chỉ số của nó
2 câu trả lời
program sonhonhat;
uses crt;
var n,i,min: integer;
a:array[1..100] of integer;
begin
clrscr;
write ('nhap so n: ');
readln(n);
for i:=1 to n do
begin
write ('A[',i,']= ');
readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if a[i]<min then min:=a[i];
write ('so nho nhat la ',min);
readln;
end.
program SNN;
uses crt;
var n, i, Min: integer;
A: ARRAY [1..100] OF integer;
begin
write('Nhap do dai cua mang, n = '); readln(n);
for i := 1 to n do
begin
write('So A[',i,'] la: '); read(A[i]);
end;
min := A[1];
for i := 1 to n do
If A[i]<min then min:=A[i];
writeln('So nho nhat trong day la: ',Min);
readln
end.
Câu hỏi trong lớp
Xem thêm
