1.

uses crt;

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

i,n: integer;

begin

clrscr;

write ('Nhap a[1]: ');  readln (a[1]);

n:=1;

while a[n]<>0 do

begin 

n:=n+1;

write ('Nhap a[',i,']: ');  readln(A[n]);

end;

write ('Day vua nhap: ');

for i:=1 to n do

write (a[i]:4);

readln;

end.

2.

uses crt;

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

i,n,s: integer;

begin

clrscr;

write ('nhap do dai day so: ');  readln (N);

for i:=1 to n do

begin

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

if a[i] mod 2=1 then s:=s+a[i];

end;

write ('Tong cac so le la: ',s);

readln;

end.

3.

uses crt;

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

i,n,s: integer;

begin

clrscr;

write ('nhap do dai day so: ');  readln (N);

for i:=1 to n do

begin

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

if a[i] mod 2=0 then s:=s+a[i];

end;

write ('Tong cac so chan la: ',s);

readln;

end.

Tham khảo :

1)

uses crt;
 var a : array[1..100] of longint ;
  n,i,nhap : longint ;
   begin 
    clrscr;
 nhap := 1 ; n := 1 ;
 while nhap <> 0 do
     begin
    readln(nhap);
    a[n] := nhap ;
    inc(n);
     end;
    for i := 1 to n-1 do write(a[i]:4);
        end .

2)

uses crt;
 var a : array[1..100]of longint ;
  n,i,s : longint ;
   begin
    clrscr;
readln(n);
  for i := 1 to n do 
    begin 
    readln(a[i]);
    if a[i] mod 2 <> 0 then inc(s,a[i]);
    end;
    write(s);
     end.

3)

uses crt;
 var a : array[1..100]of longint ;
  n,i,s : longint ;
   begin
    clrscr;
readln(n);
  for i := 1 to n do 
    begin 
    readln(a[i]);
    if a[i] mod 2 = 0 then inc(s,a[i]);
    end;
    write(s);
     end.