program tongcacsole;

uses crt;

var i, n:integer;

s: longint;

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

begin

clrscr;

write ( ' hay nhap so phan tu cua day so, n= '); readln(n);

writeln( ' nhap cac phan tu cua day so: ');

for i := 1 to n do

begin

write ( ' a[ ' , i , ' ] = ' ); readln(a[ i] );

end;

for i := 1 to n do

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

writeln ( ' tong cac so le: ' , s);

readln

end.

*bạn có thể thay dòng :

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

bằng dòng:

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

=>đều cho cùng 1 kết quả nhé

Program kthkII;

uses crt;

var i, n, s, N : integer;

A: array[1..100] of integer;

begin

write('Nhap so nguyen N: '); readln(N);

write('Nhap do dai cua day so: '); readln(n);

for i:=1 to n do

begin write('A[',i,']='); readln(A[i]); end;

for i:=1 to n do write('A[',i,']= ', A[i]);

s:=0;

for i:=1 to n do s:=s+A[i];

writeln('Tong cac so la: ', s);

readln;

End.

CHÚC BN HỌC TỐT