$#QLinkVN$

CẤU TRÚC CHƯƠNG TRÌNH CỤ THỂ NHƯ SAU:

1)

program lmao;
uses crt;
var i,n,le: word;
      a: array[1..1000] of word;
begin
clrscr;
writeln('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do begin
writeln('Nhap phan tu thu ',i,': '); readln(a[i]);
end; le:=0;
for i:=1 to n do if (a[i] mod 2<>0) then le:=le+a[i];
writeln('Tong cac so le da duoc nhap la: ',le);
readln; 
end.

2) 

program vitrichan;
uses crt;
var n,i: word;
      a: array[1..1000] of word;
begin
clrscr;
writeln('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do begin
writeln('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
writeln('Cac phan tu nam o vi tri chan la: ');
for i:=1 to n do if (i mod 2 =0) then write(a[i]:5);
readln;
end.

- Chương trình 1 :

uses crt;

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

i, N, T : integer;

begin

clrscr;

write('Nhap N = '); readln(N);

T := 0;

write('Nhap day gom ', N ,' so : ');

for i := 1 to N do

    begin 

        read(C[i]);

        if C[i] mod 2 <> 0 then

            T := T + C[i]; 

    end;

writeln('Tong so le = ', T);

readln

end.

- Chương trình 2 :

uses crt;

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

i, N : integer;

begin

clrscr;

write('Nhap N = '); readln(N);

write('Nhap day gom ', N ,' so : ');

for i := 1 to N do read(C[i]);

write('Cac phan tu o vi tri chan : ');

for i := 1 to N do if 

    i mod 2 = 0 then 

        write(C[i],' ');

readln

end.