Câu 1 :
program cau1;
uses crt;
var a : array[1..100] of integer;
n,i,t : integer;
begin clrscr;
t:=0;
write('Nhap so n :'); readln(n);
for i:=1 to n do begin
write('Nhap a[',i,']='); readln(a[i]); end;
writeln('Cac phan tu le cua mang :');
for i:=1 to n do if a[i] mod 2 = 1 then write(a[i]:3);
writeln;
for i:=1 to n do if a[i] mod 2 = 0 then t:=t+a[i];
writeln('Tong cac phan tu chan cua mang la :', t);
readln
end.
Câu 2 :
program cau2;
uses crt;
var a : array[1..100] of integer;
n,i,k,dem : integer;
begin clrscr;
dem:=0;
write('Nhap so n :'); readln(n);
for i:=1 to n do begin
write('Nhap a[',i,']='); readln(a[i]); end;
write('Nhap so k :') ; readln(k);
for i:=1 to n do if a[i] = k then dem:=dem+1;
writeln('Co ',dem,' gia tri bang ',k,' trong mang');
writeln('Cac phan tu la boi cua ',k,' la :');
for i:=1 to n do if a[i] mod k = 0 then write(a[i]:4);
writeln;
writeln('Cac so am trong mang la :');
for i:=1 to n do if a[i] < 0 then write(a[i]:3);
readln
end.
