uses crt;
var a,b,j,i:integer
A:array[1..1000] of integer;
traloi: char;
begin
clrscr;
// Nhap day so nguyen
writeln('Hay nhap gioi han cua day'); readln(n);
writeln('NHap cac phan tư trong dãy'); for i:=1 to n do readln(A[i]);
//Tinh tong theo y muon
i:=0;
S:=0;
write('Ban muon tinh tong cua cac so chan hay so le(C/L)'); readln(Traloi);
if upcase(traloi) ='C' then
for i:=1 to n do
if A[i] mod 2=0 then S:=S+A[i];
else
for i:=1 to n do
if A[i] mod 2=1 then S:=S+A[i]
//Xác định vị trí của số chẵn đầu tiên
i:=1;
while (A[i] mod 2=1) do i:=i+1;
i:=a;
while (A[j] mod 2=0) do j:=j+1;
j:=b;
write('Vay so le dau tien ở vị trí:',b,'So chan dau tien o vi tri',a);
readln;
end.
[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
