Question

1. Viết CT in ra số lẻ nhỏ hơn hoặc bằng n .

2.viết Ct cho phép nhập n số và cho biết số nhỏ nhất trong các số vừa nhập là số thứ mấy ?

Answer 1

1.

Program bai1;

uses crt;

var i,n: integer;

begin

clrscr;

write('nhap so n ='); readln(n);

i:=1;

while i<=n do

begin

write(i:3,', ');

i:=i+2;

end;

readln;

end.

Answer 2

2.

Program bai2;

uses crt;

var i,n,nhonhat: integer;

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

min: real;

begin

clrscr;

write('nhap n :='); readln(n);

for i:= 1 to n do

begin

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

end;

min:=a[1];

nhonhat:=1;

for i:= 2 to n do

if a[i] < min then

begin

min:=a[i];

nhonhat:=i;

end;

writeln('phan tu nho nhat la phan tu thu ' ,nhonhat);

readln;

end.

{ https://www.facebook.com/profile.php?id=100022887573679 }