Tin học viết chương trình tìm ra số nhỏ nhất trong dãy số và chỉ số của nó 21/08/2021 By Maria viết chương trình tìm ra số nhỏ nhất trong dãy số và chỉ số của nó
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. Trả lời
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. 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.