Viết chương trình nhập n số và cho biết số nhỏ nhất trong dãy số vừa nhập là số thứ mấy
Viết chương trình nhập n số và cho biết số nhỏ nhất trong dãy số vừa nhập là số thứ mấy
By Sadie
By Sadie
Viết chương trình nhập n số và cho biết số nhỏ nhất trong dãy số vừa nhập là số thứ mấy
program luftmensch;
uses crt;
var T:array[1..1000] of integer;
i,n,stt,min:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘);
readln(T[i]);
end;
min:=T[1];
for i:=2 to n do
if T[i]<min then
begin
min:=T[i];
stt:=i;
end;
write(‘So nho nhat la so ‘,min,’o vi tri thu’,stt);
readln
end.