Bài 1:
---
Program BTT;
Uses crt;
Var A: array[1..10000] of longint;
n,i: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
For i:=1 to n do
Begin
Write('A[',i,'] = ');
Readln(A[i]);
End;
Write('Cac so le la: ');
For i:=1 to n do
If A[i] mod 2 = 1 then Write(A[i],' ');
Writeln;
Write('Cac so chan la: ');
For i:=1 to n do
If A[i] mod 2 = 0 then Write(A[i],' ');
Readln
End.
---
Bài 2:
---
Program BTT;
Uses crt;
Var A: array[1..10000] of longint;
n,i,k,d: longint;
Begin
Clrscr;
Write('Nhap n, k: '); Readln(n, k);
For i:=1 to n do
Begin
Write('A[',i,'] = ');
Readln(A[i]);
End;
d:=0;
For i:=1 to n do
If A[i]=k then inc(d);
Writeln('Co ',d,' phan tu co gia tri bang ',k);
Write('Cac so la boi cua k: ');
For i:=1 to n do
If A[i] mod k = 0 then Write(A[i],' ');
Writeln;
Write('Cac so am: ');
For i:=1 to n do
If A[i]<0 then Write(A[i],' ');
Readln
End.
