1

uses crt;
var A: array [1..100] of longint;
      n,i,tong: longint;
begin
clrscr;
write ('Nhap n: '); readln (n);
for i:=1 to n do
begin
        write ('A[',i,']=');
        readln (A[i]);
end;
tong:=0;
        for i:=1 to n do
        if A[i] mod 2=1 then tong:=tong+A[i];
        write('Tong cac so le: ', tong);
readln;
end.

2. 

uses crt;
var A: array [1..100] of longint;
      n,i,tong: longint;
begin
clrscr;
write ('Nhap n: '); readln (n);
for i:=1 to n do
begin
        write ('A[',i,']=');
        readln (A[i]);
end;
tong:=0;
        for i:=1 to n do
        if A[i] mod 2=0 then tong:=tong+A[i];
        write('Tong cac so chan: ', tong);
readln;
end.

(Ngôn ngữ Pascal)

Câu 1:

var a,i,n,j:longint;

begin

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

         a:=0;j:=0;i:=0;

         while i<n do

         begin

                  j:=j+1;

                  if j mod 2 >0 then a:=a+j;

                  if j mod 2 >0 then i:=i+1;

         end;

         write(a);

         readln;

end.

Câu2:

var a,i,n,j:longint;

begin

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

         a:=0;j:=-1;i:=0;

         while i<n do

         begin

                  j:=j+1;

                  if j mod 2 =0 then a:=a+j;

                  if j mod 2 =0 then i:=i+1;

         end;

         write(a);

         readln;

end.