Question

bạn nào giúp mình với: Viết chương trình nhập vào 1 dãy số nguyên. In ra màn hình số bé nhất và vị trí của nó trong dãy số

Answer 1

uses crt;

var i,n,min,s : integer;

a : array[1..100] of real;

begin clrscr;

write('Nhap n=); readln(n);

for i:=1 to n do begin

write('Nhap a[',i,']='); readln9a[i]); end;

min :=a[1];

for i:=2 to n do

if a[i] < min then begin min :=a[i] ; s:=i; end;

write('Gia tri nho nhat la :', min, 'tai vi tri', s);

readln

end.

Answer 2

Program HOC24;

var n,i,min: integer;

a: array[1..32000] of integer;

begin

write('Nhap so phan tu : '); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

min:=32000;

for i:=1 to n do if a[i]<min then min:=a[i];

for i:=1 to n do if a[i]=min then write(i,' ');

readln

end.