Câu a,b)
program cau_ab;
uses crt;
var A:array[1..200] of integer;
n,i:integer;
tong:longint;
tich:int64;
begin
clrscr;
write('Nhap so luong phan tu n: '); readln(n);
writeln('NHAP GIA TRI TUNG PHAN TU CUA MANG');
tong:=0; tich:=1;
for i:=1 to n do
begin
write('phan tu thu ',i,': ');
readln(A[i]);
tong:=t+A[i]; {cong tong}
tich:=tich+A[i]; {tinh tich}
end;
writeln('Tong cac phan tu cua mang la: ',tong);
writeln('Tich cac phan tu cua mang la: ',tich);
readln
end.
Câu c)
program cau_c;
uses crt;
var A:array[1..200] of integer;
n,i,dc,dl:integer;
begin
clrscr;
write('Nhap so luong phan tu n: '); readln(n);
writeln('NHAP GIA TRI TUNG PHAN TU CUA MANG');
dc:=0; dl:=0;
for i:=1 to n do
begin
write('phan tu thu ',i,': ');
readln(A[i]);
if A[i] mod 2=0 then dc:=dc+1
else dl:=dl+1;
end;
if dl=0 then writeln('Khong co phan tu le')
else
begin
write('Phan tu le trong mang la: ');
for i:=1 to n do
if A[i] mod 2=1 then write(A[i],' ');
writeln;
end;
if dc=0 then writeln('Khong co phan tu chan')
else
begin
write('Phan tu chan trong mang la: ');
for i:=1 to n do
if A[i] mod 2=0 then write(A[i],' ');
end;
readln
end.
Câu d)
program cau_d;
var A:array[1..200] of integer;
n,i:integer;
sc,sl:longint;
begin
clrscr;
write('Nhap so luong phan tu n: '); readln(n;
writeln('NHAP GIA TRI TUNG PHAN TU CUA MANG');
sc:=0; sl:=0;
for i:=1 to n do
begin
write('Phan tu thu ',i,': ');
readln(A[i]);
if A[i] mod 2=0 then sc:=sc+A[i] else sl:=sl+A[i];
end;
writeln('Tong cac phan tu le trong mang la: ',sl);
writeln('Tong cac phan tu chan trong mang la: ',sc);
readln
end.
