1, cho dãy A gồm N phần tử (1<=N<=200)được nhập từ bàn phím .Hãy viết chương trình tính tổng các phần tử có chỉ số lẻ ( chẵn). 2, cho dãy A gồm N phần tử (1<=N<=200)được nhập từ bàn phím .Hãy viết chương trình tính tổng các phần tử có giá trị lẻ (chẵn)
1, cho dãy A gồm N phần tử (1<=N<=200)được nhập từ bàn phím .Hãy viết chương trình tính tổng các phần tử có chỉ số lẻ ( chẵn). 2, cho dãy A gồm N p
By Jasmine
1) chỉ số là số thự tự chỉ số phần tử VD: A[1] thì chỉ số là 1
* chẵn
program chi_so;
uses crt;
var A:array[1..200] of integer;
n,i:byte;
t:integer;
begin
clrscr;
write(‘Nhap N: ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]= ‘); readln(A[i]);
if i mod 2=0 then t:=t+A[i];
end;
write(‘Tong cac phan tu co chi so chan la: ‘,t);
readln;
end.
*lẻ
program chi_so;
uses crt;
var A:array[1..200] of integer;
n,i:byte;
t:integer;
begin
clrscr;
write(‘Nhap N: ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]= ‘); readln(A[i]);
if i mod 2=1 then t:=t+A[i];
end;
write(‘Tong cac phan tu co chi so le la: ‘,t);
readln;
end.
2) Giá trị của phần tử là giá trị của phần tử đó mang VD: A[3]=253 thì giá trị là 253
*Chẵn
program chi_so;
uses crt;
var A:array[1..200] of integer;
n,i:byte;
t:integer;
begin
clrscr;
write(‘Nhap N: ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]= ‘); readln(A[i]);
if A[i] mod 2=0 then t:=t+A[i];
end;
write(‘Tong cac phan tu co gia tri chan la: ‘,t);
readln;
end.
*lẻ
program chi_so;
uses crt;
var A:array[1..200] of integer;
n,i:byte;
t:integer;
begin
clrscr;
write(‘Nhap N: ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]= ‘); readln(A[i]);
if A[i] mod 2=1 then t:=t+A[i];
end;
write(‘Tong cac phan tu co gia tri le la: ‘,t);
readln;
end.