Câu 1

uses crt;
var n,i,s:integer;
a:array[1..100] of integer;
begin
clrscr;
write('Nhap n: ');readln(n);
for i:=1 to n do begin
write('Nhap so thu ',i,': ');readln(a[i]);
if (a[i] mod 2=-1) and (a[i]<0) then s:=s+a[i];
end;
write('Cac so am co gia tri le: ');
for i:=1 to n do if (a[i] mod 2=-1) and (a[i]<0) then begin write(a[i],', ') end;
writeln('Tong cac so am co gia tri le: ',s);
readln
end.

Câu 2

var n,i,s:integer;

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

begin

write('Nhap n: ');readln(n);

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

for i:=1 to n do begin 

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

if (a[i] mod 2=0) and (a[i] mod k=0) then s:=s+1;

end;

writeln('Co ',s,' phan tu chia het cho k vua co gia tri chan trong day');

write('so luong cac phan tu chia het cho k vua co gia tri chan trong day: ');

for i:=1 to n do if (a[i] mod 2=0) and (a[i] mod k=0) then write(a[i],', ');

readln

end.

`1)`

var i,n,s: integer;

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

begin

writeln('Nhap n: '); read(n);

for i:=1 to n do 

begin

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

end;

writeln('Cac so le: ')

s:=0;

for i:=1 to n do

if a[i] mod 2 <> 0 then 

begin

s:=s+a[i];

write(a[i],' ');

end;

writeln('- Tong so le: ',s);

for i:=1 to trunc(sqrt(s)) do if s mod i = 0 then d:=d+1;

if d > 1 then writeln('Tong do khong la so nguyen to') else writeln('Tong do la so nguyen to');

readln

end.

`2)`

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

i,n,k,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

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

end;

write('Nhap so k='); readln(k);

t:=0;

for i:=1 to n do 

  if a[i] mod k=0 then t:=t+a[i];

writeln('Tong cac so chia het cho ',k,' la: ',t);

readln;

end.