Bài `1`
Program Hotboy;
Uses crt;
Var i,n:integer;
A:array[1..100] of integer;
Begin
clrscr;
Write('nhap n tu ban phim ');
Readln(n);
For i:=1 to n do
Begin
Write(' A[',i,']');readln(A[i]);
End;
For i:=1 to n do
If (A[i] mod 2<>0) then
write('cac so le la:',A[i]);
Readln
End.
Bài `2`
Program Hotboy ;
Uses crt;
Var i,n,Max,Min:integer;
S:longint;
A:array[1..100] of integer;
Begin
Clrscr;
S:=0;
Write('nhap n tu ban phim');
Readln(n);
For i:=1 to n do
Begin
Write('A[',i,']');
Readln(A[i]);
End;
Max:=A[1]; Min:=A[1];
For i:=2 to n do
Begin
if Max<A[i] then Max:=A[i];
if Min>A[i] then Min:=A[i];
end;
Write('so nho nhat la',Min);
Write('so lon nhat la',Max);
Readln
End.
