Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
var a:array[1..1000]of integer;
n,i,k,min,vt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n=0 then writeln('Moi ban nhap lai')
else begin
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
write(a[i]:4);
writeln;
min:=a[1];
vt:=1;
for i:=1 to n do
if min>a[i] then
begin
min:=a[i];
vt:=i;
end;
writeln('So nho nhat la: ',min,' tai vi tri: ',vt);
write('Nhap k='); readln(k);
for i:=1 to n do
if i<>k then write(a[i]:4);
end;
readln;
end.
Hình như là để xóa bài đã lưu thì phải. Em cũng ko biết lắm. Em học lớp 4 nha. Chúc chị học tốt nhé. Mai thi đừng có trượt là đc. Ko bố mẹ lại buồn. Chúc chị thi tốt.
@@ Ơ Kìa Tui con Trai Mà :))
Dù Sao thì Cũng cảm ơn Bạn Nhé :>>
Cô hiện tại đang có hơn 31000SP rùi!
99% dược làm từ casio
toàn casio 580
wow, bn tôi có kênh yt!!!
có thật là grow a garden lên VTV ko
ok bn
cười điên khi ns đc hiện lại :)))
:)) ôg này lại mạnh r