viết chương trình nhập vào một mảng số nguyên a (a1,a2…an) gồm 12 phần tử
a)in ra các phần tử lẻ trong mảng
b) đếm và tính tổng các phần tử lẻ trong mảng
viết chương trình nhập vào một mảng số nguyên a (a1,a2…an) gồm 12 phần tử
a)in ra các phần tử lẻ trong mảng
b) đếm và tính tổng các phần tử lẻ trong mảng
program tinhtong;
uses crt;
var a:array[1..12] of Integer;
s: word;
i, n, d: byte;
begin
clrscr;
s:=0; d:=0; n:=12;
for i:=1 to n do
begin
write(‘nhap a[‘,i,’] = ‘);
readln(a[i]);
if a[i] mod 2 <> 0 then
begin
s:=s+a[i];
d:=d+1;
end;
end;
writeln(‘cac phan tu le trong mang: ‘);
for i:=1 to n do if a[i] mod 2 <> 0 then
write(a[i]:6);
writeln(‘so phan tu le: ‘, d);
writeln(‘tong cac so le: ‘, s);
readln;
end.
program phuongt;
uses crt;
var A: array[1..12] of integer;
i, d, s: integer;
begin
clrscr;
s:=0; d:=0;
for i:=1 to n do
begin
write(‘A[‘, i, ‘] = ‘); readln(A[i]);
end;
write(‘a. ‘);
for i:=1 to n do
begin
if A[i] mod 2 = 1 do write(A[i]:3);
end;
for i:=1 to n do
begin
if A[i] mod 2 = 1 do
begin
d:=d+1;
s:=s+A[i];
end;
end;
write(‘b. so phan tu le = ‘, d, ‘; tong = ‘, s);
readln
end.