Question

Viết chương trình nhập vào 1 dãy số thực gồm K phần tử. In ra màn hình phần tử nhỏ nhất trong dãy số đó

Answer 1

Program HOC24;

var a: array[1..1000] of integer;

i,k,min: integer;

begin

write('Nhap K: '); readln(k);

for i:=1 to k do 

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

min:=a[1];

for i:=2 to k do if a[i]<min then min:=a[i];

write('Phan tu nho nhat trong day so la: ',min);

readln

end.

Answer 2

Uses crt;

var i,k,min: longint;

h: array[1..100] of longint;

begin clrscr;

readln(k);

for i:=1 to k do begin

readln(h[i]);

end;

min:=h[1];

for i:=1 to n do begin

if(min>h[i]) then min:=h[i];

end;

writeln(min);

readln;

end.