Question

Mọi người giúp mình bài này với, xin cảm ơn rất nhiều ạ!

Answer 1

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.