a)
program ct;
uses crt;
var A:array[1..10000] of integer;
i,n:integer;
Sa,Sd:longint;
begin clrscr;
write('Nhap so n: '); readln(n);
for i:=1 to n do
begin
writeln('Nhap phan tu thu ',i,': '); readln(A[i]);
end;
Sa:=0; Sd:=0;
for i:=1 to n do
begin
if A[i] <0 then Sa:=Sa+A[i];
if A[i] >0 then Sd:=Sd+A[i];
end;
writeln('Tong cac so am la: ',Sa);
writeln('Tong cac so duong la: ',Sd);
readln;
end.
b)
program ct;
uses crt;
var A:array[1..10000] of integer;
i,n,dem:integer;
begin clrscr;
write('Nhap so n: '); readln(n);
for i:=1 to n do
begin
writeln('Nhap phan tu thu ',i,': '); readln(A[i]);
end;
dem:=0;
for i:=1 to n do
if A[i] mod 2=0 and A[i] mod 3=0 and A[i] mod 6=0 then dem:=dem+1;
writeln('Co tat ca ',dem,' so vua chia het cho 2, cho 3, cho 6');
readln;
end.
Học tốt!
