Question

BT: Viết chương trình nhập vào dãy n số và in ra tổng các số lẻ trong dãy đó

GIÚP MK VS

Answer 1

p​rogram Tong_cac_so_le​;

Answer 2

Var i,n,s:integer;

begin

readln(n); s:=0;

for i:=1 to n do

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

writeln(s);

readln;

end.

Answer 3

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é

Answer 4

program tong_cac_so_le;

uses crt;

var i, n, s:integer;

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;

s:=0;

for i:=1 to n do

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

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

readln

end.

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

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

thành dòng:

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

Answer 5

program tongle;
uses crt;
var n,i,tongle:integer;
a:array[1..100] of integer;
begin
clrscr;
write('nhap n:');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
tongle:=0;
for i:=1 to n do
if a[i] mod 2 <>0 then tongle:=tongle+a[i];
write('tong cac so le trong day la:',tongle);
readln;
end.

Answer 6

program tong_cac_so_le;

uses crt;

var i, n, s:integer;

a: array [1..100];

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;

s:=0;

for i:=1 to n do

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

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

readln

end.

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

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

thành dòng:

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