Nhập vào màn hình 1 mảng 5 phần tử số nguyên bất kì:
a) Tính tổng phần tử có giá trị lẻ?
b) Tính tổng các phần tử có vị trí là lẻ trong mảng?
Mọi người giúp mình với ạ! Cảm ơn nhiều!!!
Nhập vào màn hình 1 mảng 5 phần tử số nguyên bất kì:
a) Tính tổng phần tử có giá trị lẻ?
b) Tính tổng các phần tử có vị trí là lẻ trong mảng?
Mọi người giúp mình với ạ! Cảm ơn nhiều!!!
program oken;
uses crt;
var a: array [1..10000] of longint;
i,n:,tong,tong2:longint;
begin
clrscr;
write(‘nhap so phan tu cua mang: ‘); readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]: ‘); readln(a[i]);
if i mod 2 = 1 then tong2:=tong2+a[i];
if a[i] mod 2=1 then tong:=tong+a[i];
end;
writeln(‘tong phan tu co gia tri le: ‘,tong);
writeln(‘tong phan tu co vi tri la le: ‘,tong2);
readln;
end.
Program BTH;
uses crt;
var a:array[1..100000] of longint;
n,i,s,k:longint;
begin
clrscr;
write(‘Nhap n: ‘);readln(n);
For i:=1 to n do
begin
write(‘a[‘,i,’]: ‘);readln(a[i]);
end;
For i:=1 to n do
begin
If a[i] mod 2=1 then s:=s+a[i];
If i mod 2=1 then k:=k+a[i];
end;
writeln(‘Tong cac phan tu co gia tri le la: ‘,s);
writeln(‘Tong cac phan tu o vi tri le la: ‘,k);
readln;
end.